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The Origin 


The game of SUPERWUMPUS is based on the game of 
WUMPUS, as described in the book What To Do After 
You Hit Return by the People's Computer Company. Since 
the source listing for WUMPUS was not printed in the origi¬ 
nal PCC book, SUPERWUMPUS has been written from 
scratch, in both 6800 assembler code and BASIC. The pri¬ 
mary differences between the two versions are program size 
and machine dependency. The 6800 assembler program will 
run in 4 K of user programmable memory with room to 
spare, but cannot be directly used with any other type of 
processor. With varying degrees of program modification, 
the BASIC program can be made to run on virtually any 
machine supported by a BASIC interpreter, and will require 
about 9,950 bytes of work space in addition to the memory 
required by the interpreter. 

Although both listings can be used as they are, the 6800 
assembler program listing warrants further explanation. The 
assembler that created this listing is the same program 
that was used to write “6800 Tiny Assembler (available as a 


PAPERBYTE 7 book, Tiny Assembler 6800 Version 3.1 , 
or see the April and May 1977 issues of BYTE magazine). 
“Tiny Assembler 6800“ is a one pass rather than the normal 
two pass assembler, and the listing differs significantly. 
The generated code for the operand of a forward reference 
is a dummy value of zero. This is not executable code even 
though it is printed on the source listing. The actual execu¬ 
table code is developed when the forward reference is 
resolved by using the referenced symbol as a label. The 
actual operand is then printed on the listing directly under 
the statement containing that label. Note that when this 
happens, the address given for this code will cause it to 
overlay the earlier dummy code (this may take a bit of 
getting used to at first, so be sure you know how it works 
before you attempt to make any modifications based on 
this listing). Notes on special notation and other items of 
interest to anyone translating the BASIC listing will be found 
on page 11 in the section called “The BASIC Program.” 


The Game 


Fundamentals 

The game begins with the player (hunter) somewhere 
deep within the Wumpus’s cave, which consists of 20 rooms 
connected by tunnels. The rooms form the vertices of a 
dodecahedron and the tunnels form its edges. Therefore, 
each room has three tunnels connecting it to other rooms. 
The player starts in one of these rooms while the Wumpus 
is asleep in another. The hunter begins with five arrows 
or darts with which to shoot the Wumpus. Each arrow may 
be used only once. In the 6800 assembler version of the 
game, the object is to kill the Wumpus before he (she? it?) 
can find and eat the hunter. After watching several people 
become the blood-thirsty killers of an animal that they 
knew nothing about, and being of much more humane 
sentiments, I decided to change the object of the BASIC 
version of the game to that of immobilizing the beast so 
that it can be tagged with a beeper. When the beast wakes 
up, it will lead the hunter out of the caves and that is the 
only way the exit can be found. The play of the game is 
the same for both SUPERWUMPUS versions but there is 
less violence in the BASIC version. 

To complicate things a bit, there are bottomless pits 
in some of the rooms. If you move into one of these, 
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you fall out of sight, and emit a pitiful scream. This causes 
the premature termination of the game. There are also 
rooms full of bats in the cave in which the bats pick you up, 
fly you around for awhile, and then drop you randomly 
into a new room. Note: bats can drop you into a pit, into 
another room of bats, or on top of the Wumpus! In the 
original WUMPUS there were a fixed number of bat caves 
and pits, but in SUPERWUMPUS the number as well as the 
location of these hazards changes for each new game. 

For each turn, the player is told the number of the 
room the hunter is currently in, the numbers of the rooms 
connected to it by tunnels, and the presence of any hazards 
(pits, bats or the Wumpus) that are exactly one room away. 
Alas, the player is not told which room such a hazard is in. 

During each turn the hunter may move into an adjoining 
room or shoot through several connecting rooms. The 
hunter must move carefully through the caves avoiding 
hazards until the sleeping Wumpus is found — and then 
shoot him. While trying to navigate the caves, it is a good 
idea to make a map showing the locations of everything 
found so far. If the search for the Wumpus is a long one, 
alternate routes and shortcuts begin to appear, and hazards 
can often be pinned down to specific rooms. If the hunter 
makes a shot but does not hit the Wumpus, the Wumpus 
will wake up and become a much harder to find moving 
target. The Wumpus may also be awakened if a clumsy 
hunter stumbles into his room and steps on him. (Getting 
out of this situation is dangerous, but it can be done.) If 
the awakened Wumpus comes into your room, or if you 
blunder into his, he will eat you up; end of game. 

To add a margin of safety to the game, the hunter may 
back up and shoot through from one to five rooms, as long 
as they are connected. If they are not connected, the shot 
goes wild and may hit just about anything, including the 
hunter! In the 6800 assembler version of the game, the 
number of rooms that may be shot through has been reduced 
from five to three to eliminate some tricky strategies that 
could make the game trivial. In the BASIC version this has 
been accomplished by not allowing the hunter to shoot 
through the same room more than once per turn. 


Extensions 

The preceding was about all that was printed about the 
game of WUMPUS in the first edition of What To Do After 
You Hit Return , and is certainly enough to spark one’s 
interest. Since SUPERWUMPUS was to be written from 
scratch, it seemed like an ideal opportunity to incorporate 
more and better goodies . In searching for such goodies, 
several people spent an amazing amount of time tossing 
around some truly strange ideas, many of which were based 
on aspects of other well known computer games that had 
proven to be quite enjoyable. 


Supplies 

The first change in the game provides a finite amount 
of some necessary resource which can be diminished as 
time is used up. Without such a restriction, a careful player 
could often poke about the caves for as long as it takes to 
locate the Wumpus and all hazards. Among the several time 
limits considered to prevent such slow games: available 


oxygen in the caves, diminishing flashlight batteries, food, 
water, and an arbitrary number of hours or days. It was 
finally decided that a quantity of nonspecific “supplies” 
should be used because fewer problems would be encoun¬ 
tered in trying to integrate the new components into the 
game’s structure. This general resource also allows the game 
to increment or decrement the available supplies randomly 
throughout the game. If the supplies run out before the 
Wumpus has been caught, the hunter starves to death and 
loses. The amount of supplies used in both the 6800 assem¬ 
bler and BASIC versions of the game has been set after 
many experiments, but like most values in the game, can be 
changed by the user if desired. 


Random Events 

The second major change in the game was to introduce a 
series of random events beyond the player’s control that 
can change the course of the game. Random events are fairly 
common in computer games and usually provide the game 
with a personality all its own. In SUPERWUMPUS several 
variables can be randomly changed by the user: the amount 
of supplies available, the configuration of the caves, the 
player’s location, the location of the Wumpus and hazards, 
the number of shots left, and on and on. It is important, 
however, to keep the game from getting out of control or 
from becoming either too simple or too difficult. For 
example, a random good event should be balanced against 
a bad one. 

The first event that has been introduced is to allow rats 
to come up from the pits and devour half of the hunter’s 
available supplies. Having a limited quantity of supplies is 
in itself a restriction, and losing half of them could be 
devastating. To compensate for this, the second event has 
been added: the hunter now finds supplies left over from 
a previous (eaten?) hunter. To keep these events from can¬ 
celling one another, the supplies found are always a small, 
random amount. This is a minor compensation for losing 
half of your existing supplies, so the probability of finding 
supplies is higher than that of the rats devouring them. The 
final effect is that rats attacking at the beginning of the 
game (when there are more supplies to lose) can be disas¬ 
trous; rats attacking at the end of the game are not so bad; 
and finding supplies is a minor boon whenever it happens. 
(An increase in supplies may happen frequently and can 
often save the hunter near the end of a tight game.) 

Another random event outdates the player’s map. A 
rockslide from deep within the caves can close a tunnel. 
Tunnels closed in that manner are never reopened during 
a game, and the player is only informed that a rockslide 
happened, not where it occurred. This simulates the echoing 
reverberation of a real rockslide, were one in a real cave. 
No player, Wumpus, or arrow may go through a closed 
tunnel, but bats (who know secret passageways between 
rooms) are not affected by such closures. Rockslides are 
fairly uncommon and are only a minor nuisance. (You 
might want to experiment with a shaky cave having a 
high propensity for slides to see how it changes the game.) 

The last random event can have a major effect on the 
game. A colony of bats may migrate from one room to 
another. Again the player is informed that the event has 
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occurred, but not where. For example, if a map has two 
bat colonies marked on it when a migration occurs, one of 
these notations may become incorrect. At the same time, 
rooms previously known to be safe may become the new 
home of the migrating colony. An additional inconvenience 
is that, when the bats move, the hunter is forced to hide 
and use up some supplies waiting for things to quiet down. 
To confuse things further, the bats may move right into the 
hunter’s room. If they do, the hunter will be relocated as if 
the hunter had stumbled into a bat colony’s cave. To add 
injury to insult, the hunter cannot hang on to all of his 
supplies while hanging from a bat, so some supplies are 
lost each time the bats relocate the hunter. All of this 
can get somewhat discouraging if you are finally dropped 
into another colony of bats, and so on. 

Several other random events were considered but not 
implemented because they took up too much room in 
code, made the game too easy, hard, or different, or because 
they simply did not ‘feel’ right. Unused random events 
included: 

• Finding arrows which could be reused. 

• Moving the Wumpus more than one room at a time. 

• Creating new pits or bat colonies. 

• Finding footprints revealing where the Wumpus has 
been. 

• Having the hunter break a leg or sustain some other 
physical injury which would slow down movement 
within the cave. 

One Last Chance 

The third major change to the original game was devel¬ 
oped to benefit the hunter who has used up all five arrows 
or darts. As the game was originally set up, a player could 
only wait until the Wumpus found the hunter, or until his 
supplies had run out and the game was lost. This seemed 
unsatisfying, and a way was sought which would give the 
hunter one last chance of winning, however small. 

Several approaches were considered: hand to hand com¬ 
bat with a small chance of winning; hand to hand combat 
with the last arrow as a hand weapon providing better odds 
for the hunter; a small chance of being able to wear the 
Wumpus down psychologically in an argument (not con¬ 
sidered for long); hiding a knife in the cave, letting the 
hunter search for it, and going back to hand to hand com¬ 
bat; and many more. The final choice gives the hunter an 
opportunity to find some loose rocks after the last arrow 
is spent, and then hurl them at the Wumpus at close range, 
in hopes of knocking him out. 


To implement this, finding a rock to throw has been 
added as another random event that happens after all the 
arrows are gone. A rock can be thrown into only one room 
(using the shoot command). If that room contains the 
Wumpus, the rock may or may not hit him, and if it does 
hit him it may or may not knock him out. The chances of 
having all of this work out are so slim that I have never 
seen a game won by throwing rocks, but it is possible. 
(Usually the supplies will have been exhausted before the 
hunter can get into a room next to the Wumpus, who is 
moving about by then, and throw a rock.) 

Rules 

Several aspects of the game have been left undefined in 
the WUMPUS writeup mentioned above. Generally, the 
approach taken in SUPERWUMPUS has been to choose 
rules that introduce random action where possible, without 
making the program unduly complex. Standard message 
formats have been designed to limit the amount of addi¬ 
tional information that can be deduced from them. The 
rules that have been selected are as follows: 


• You may shoot through a bat cave, but you may hit 
a bat. You will be told if you hit a bat, but not the 
number of the room that the bats are in. 

• You may shoot over a pit, but you may lose your 
arrow. Again, you are told that you lost your arrow, 
but not the number of the room in which it was lost. 

• A room may not contain more than one hazard (bats, 
pits or the Wumpus). 

• You may be dropped anywhere by the bats. 

• The awakened Wumpus may or may not move during 
each turn. 

• When the Wumpus moves, it is always to an empty 
room that is connected to his current room. If he is 
surrounded by hazards and closed tunnels, he is 
boxed in and unable to move. 

• If you shoot yourself (some hunter!), you may or 
may not die from the shot. Injuries are severe, how¬ 
ever, and require consumption of some of the hunter’s 
limited supplies. 

• Between games, all room numbers are scrambled, so 
an old map is no good in a new game. Furthermore, 
there is no correlation between the order in which 
connecting rooms are printed for each turn, and the 
listing order of warning messages for nearby hazards. 
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Program Notes 


The programs have been developed in a structured man¬ 
ner with separate functions controlled by independent sub¬ 
routines. For the BASIC version of the program, many of 
the service subroutines from the original 6800 assembler 
listing were available as standard BASIC functions, so the 
structure became simpler. The structural networks for the 
6800 version are shown in figure 1 and figure 2. The net¬ 
work diagram for the BASIC program is shown in figure 3. 

The 6800 Assembler Program 

At the heart of the program are several tables that reside 
in page zero. The first table (ROOMS) is a map of the cave 
with an entry for each of the twenty rooms. Each entry 
contains three bytes which show the three rooms which are 
connected to the current entry by tunnels, and one byte 
showing the content of the current entry. Valid room con¬ 
tents are: P=pits, B=bats, W=Wumpus, and a null byte indi¬ 
cating an empty room. This map may be printed at the end 


of each game to let the player find where there might be 
errors an his or her map. As the game progresses, the value 
of room contents will change, but the map of room connec¬ 
tions will remain essentially the same. The order in which 
connections are listed for a given room are periodically 
rotated. This prevents the listings of hazards and connected 
rooms from indicating which rooms contain which hazards. 
Rockslides can also change the values of connecting room 
entries to indicate closed tunnels. 

All room numbers in the ROOMS table remain the same 
for each game. Therefore, the second table TRANS is used 
to create the illusion of cave room numbers changing be¬ 
tween games. This table translates between internal room 
numbers used by the program and external room numbers 
used by the player. Since this table is reloaded randomly 
between games, a new user's map must be made for each 
game. The translation can be suppressed by changing the 
byte at hexadecimal location 0ABD to a return from sub¬ 
routine (code hexadecimal 39). If this is done before any 


FIGURE 1: The structure of the 6800 version of SUPER WUMPUS has been split between the primary game functions and 
the common utiiity functions. The primary functions shown in this figure are as follows: 


MAINLINE 

— Program mainline 

GENCA VES 

— Generate a cave configuration 

CLEAR 

— Clear the caves of the previous game 

GEN ITEM 

— Randomly generate a hazard within the caves 

PLAY 

— Mainline for a single game 

DISPLA Y 

— Display a map of the caves 

PROMPTIN 

— Accept a reply from the keyboard 

HAPPENINGS 

— Generate random events 

ROCKX 

— Find a throwing rock 

RATS 

— Rats eat half of the available supplies 

SLIDE 

— Create a rockslide 

EXTRA 

— Find extra supplies 

MIGRA TION 

— Move bats from one room to another 

MOVE 

— Move the hunter 

SHOOT 

— Shoot an arrow or throw a rock 

STBAT 

— Shoot a bat 

STSELF 

— The hunter shoots him - or herself 

STPIT 

— Shoot a pit 

THROW 

— Throw a rock 

ROOMIN 

— Accept a room number from the keyboard 

CONNECTED 

— Check to see if two rooms are connected 

REPORT 

— Produce the report for each turn 

BATS 

— Report relocation by bats 

BUMP W 

— Report bumping into the Wumpus and what happens 

PITS 

— Report falling into a pit 

RPTROOM 

— Report surrounding room hazards 

DA YSLEFT 

— Report how many days are left 

ROOMOUT 

— Calculate a room number to display 

DECOUT 

— Display room numbers or days left in decimal 

MOVE W 

— Move the Wumpus 


The numbers in parentheses are the hexadecimal addresses of the routines. 
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games are played, the translation table will be revealed to 
the user and internal room numbers will be used in each 
game. All references to a room number, including the map 
which can be listed at the end of each game, use the transla¬ 
tion table. The map is printed in the same order as the 
ROOMS table, which is why it appears to be listed in a ran¬ 
dom order. (This inconvenience has been eliminated in the 
BASIC version of the game.) 

To close a tunnel during a rockslide, the room connec¬ 
tion values in the ROOMS table are complemented to 
indicate that a tunnel is closed. This value must then be 
recognized throughout the program as a closed connection. 
Furthermore, the connection from room “B” to room “A” 
must be closed as well as the connection from room “A” to 
room “B”, requiring changes to both the “A” and “B M 
room table entries. At the start of each game, each room 
connection is checked for an abnormally high value and if 
necessary, is complemented back to a valid room number. 
Blocked tunnels do not show up during normal play or 
during a listing of the map at the end of the game. 

The PROBABILITY subroutine uses the value of the byte 
pointed to by the index register as a per cent chance of 
success. For example, if the index points to a value of 
33 then 33% of the time PROBABILITY will return a one 


in the A accumulator and 67% of the time it will return a 
zero. The actual percentage will depend on how good the 
random number generator is. The index register is incre¬ 
mented by each call to PROBABILITY, so a series of calls 
to this routine will return a series of answers based on the 
probability values stored in successive bytes of memory. 
The table of probabilities can be found after the TRANS 
table. 

The external linkage table is located after the 
PROBABILITY table and refers to the following 10 func¬ 
tions: 

• CHARIN: Input a character into the A accumulator. 

• CHAROUT: Output a character from the A accumu¬ 
lator. 

• STROUT: Print characters from the position cur¬ 
rently pointed to by the index register until a code 
hexadecimal 04 is found. 

• BLKOUT: Print a blank character. 

The structure of the table permits the A accumulator to 
remain unchanged for all but the input routine. All of these 
functions are currently accomplished by calls to the 
Motorola MIKBUG monitor. 

The random number generator is from the Motorola 



































CHARIN 


CHAROUT 

(OOCI) 


(00C4) 



— 

STROUT 


BLKOUT 

(00C7) 


(OOCD) 


PSHX 

(0802) 


PULX 

(0813) 




WON 


LOST 

(09B7) 


(09CI) 


PNTRANS 

(096F) 



PNTROOM 

(095F) 


FIGURE 2: Common utility functions for the 6800 version of SUPER WUMPUS are broken into monitor functions which are 
not included in the listing but are accessed by the external jump table, and program functions which are included in the 
listing. (The numbers in parentheses are the hexadecimal addresses of the routines.) The monitor functions are initially 
set to use MIKBUG routines and include: 


CHARI N 
CHAROUT 
STROUT 
BLKOUT 


Fetch a character from the keyboard 
Display a character 

Display characters from the address in the Index Register until a hexadecimal 04 value is found. 
Display a blank character 


The program utility functions are as follows: 


PSHX 

PULX 

WON 

LOST 

RAND 

PNTRANS 

PNTROOM 

PROBABILITY 

RAN DMO VE - 

RAND ROOM - 


Push the Index onto the stack 
Pul I the Index off of the stack 
The game has been won 
The game has been lost 


See explanations in the text 


Make a random move from a given room 
Select a random room 


NOTE: The random number work space is not initialized in this program . In its original form, the program was loaded In two 
sections leaving the workspace with whatever happened to be there. If this cannot be done, an initialization routine will 
have to be written to create the initial random seed and prevent the same game from being played over and over. 
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library. If you wish to use the random number generator 
copyrighted by Technical Systems Consultants (TSC), it 
will fit with room to spare. (Extra locations and a four byte 
random save area are reserved after the existing random 
number generator.) 

The subroutines PSHX and PULX are pseudo machine 
operations. A call to PSHX is the same as pushing the index 
onto a stack. A call to PULX pulls the index value off of a 
stack. The return address for these subroutine calls is 
automatically handled, so they may be used in the same 
way that machine instructions for PSHX and PULX would 
be used. These are very handy subroutines. 

The subroutine PNTROOM sets the index to the entry 
in the ROOMS table which points to the room indicated by 
the A accumulator. Similarly, PNTRANS sets the index to 
the entry in the TRANS table which points to the room 
indicated by the A accumulator. 

The BASIC Program 

The version of BASIC used for this SUPERWUMPUS pro¬ 
gram is the 10 K version that comes with the North Star 


mini floppy disk system. Several points of notation are 
worth mentioning to anyone planning to implement 
SUPERWUMPUS in some other version of BASIC. 

The backward slash (\) is used to separate multiple state¬ 
ments per line. For example: 

PRINT\PRINT\PRINT 

would print three blank lines. (Some other BASIC inter¬ 
preters use a colon (:) for this purpose.) 

Input statements with imbedded literal strings can be 
changed to the combination of a PRINT statement fol¬ 
lowed by an INPUT statement. The PRINT statement 
itself does not use the semicolon (;), so the delimiters in 
a print list are all commas which do not indicate zone 
printing. The special formatting features of the PRINT 
statement have been used in lines 3350 and 3410 (see 
Appendix B for the BASIC program listing) to format a 
printed table. Zone printing of these numbers could be used 
to accomplish the same thing in another version of BASIC. 

The functions at the end of the listing make use of the 
multi-line function feature of this version of BASIC. All 



FIGURE 3: The structure for the BASIC version of SUPERWUMPUS Is quite a bit simpler than for the 6800 version. This 
Is primarily due to the greater capabilities of the higher level language. The functions that are required are essentially the 
same as those in the previous figures. The numbers in parentheses represent line numbers in the BASIC program where that 
particular code can be found. 
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three functions can be rewritten as subroutines if need be. 
In some versions of BASIC, such functions must be at the 
beginning of the listing before they are first used. If this is 
the case, they can be easily moved. 

Without the REMARK lines, this listing uses 8,822 bytes 
of memory and requires about another 1,118 bytes for data 
storage, giving a final requirement for 9,940 bytes of avail¬ 
able memory. With the remarks added, this grows to about 
10,160 bytes of memory. All of the remarks were added 
after the program was operational, so they can be removed 
if space is a problem. 

The RESTORE statement at line 1800 restores the data 
stack to a specific source code line number. If this is not 
available in a particular version of BASIC, this section of 
code (which slows down the printed output) will have to 
be rewritten. The EXIT statement is a GOTO that leaves 
a FOR/NEXT loop. 

The operation of the BASIC program is essentially the 
same as the 6800 program. The ROOMS table has been 
implemented as a combination of array R(20,3) which 
contains the room interconnection map, and the array 
C$(20) which contains the room contents. The translation 
table TRANS has been implemented as array T(20,2). 
Tunnels are closed by setting connecting room number 
entries to zero rather than complementing them, and the 
entire room connection array R is reloaded between each 
game to restore the correct values. Rather than storing the 
game’s various probability values in a table, they have been 
incorporated into the equations which use them. Therefore, 
to change any probability constants, you will have to find 
the portion of the program that uses that particular con¬ 


stant and change it there. Each probability constant is used 
only once. 

Table 1 lists the major BASIC variables that have not 
already been mentioned, along with their associated 
meanings. 

SUPERWUMPUS has been a fun project for me, and I 
hope it provides you with many hours of enjoyment 
Perhaps some of you will come up with further extensions 
of the game. If so, I wish you good luck, but I must warn 
you to be careful. The Wumpus can be habit forming. 


A 

AK5) 

A$ 

C 

D 

E 

R 

R0 

R1 

R2 

R3 

S 

SO 

W 

W1 

W2 

x$ 

I 

J 


* Awake switch 

* Room array for shots 

* General work string 

* Current room for hunter 

- Days left (later changed to hours) 

= End of game flag 

= Rock count (different from R (20,3)) 

- Temporary room number 

* Temporary room number in rockslides 

- Room counter for shots 
= Test room for shots 

= Shots left 
= Stop the arrow flag 

* Wumpus's room 

- Wild shot flag 

= Flag to indicate random move is by Wumpus 

* Symbol to load in GENITEM 
= General counter 

= General counter 


Table 7; Major BASIC variables not mentioned In the text 
and their associated meanings. 
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Appendices 


Appendix A: 


Sample Run of BASIC SUPERWUMPUS 
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TO START THINGS OFF* ENTER A RANDOM NUMBER* 123 


WELCOME TO THE WUMPUS CAVES. 

DO YOU WANT PLAYING INSTRUCTIONS? PERHAPS 

PLEASE ANSWER YES OR NO 

DO YOU WANT PLAYING INSTRUCTIONS? NO 


HANG ON A BIT WHILE I SET THIS UP 


--START OF NEXT HOUR- 


«< I HEAR WINGS »> 


CURRENT ROOM IS 6 
TUNNELS LEAD TO 10 17 1 

YOU HAVE ENOUGH SUPPLIES FOR 10 MORE HOURS 


SHOOT OR MOVE? MOVE 
WHERE TO? 17 

WHOOPS* BATS RELOCATE YOU. 

YOU LOSE SOME SUPPLIES* 

WHOOPS* BATS RELOCATE YOU. 

YOU LOSE SOME SUPPLIES. 

--START OF NEXT HOUR— 

<<< I FEEL A DRAFT >>> 

CURRENT ROOM IS 18 
TUNNELS LEAD TO 3 19 15 

YOU HAVE ENOUGH SUPPLIES FOR 6 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO? 3 

LISTEN!! A ROCK SLIDE HAS CLOSED A TUNNEL 
--START OF NEXT HOUR- 


CURRENT ROOM IS 3 
TUNNELS LEAD TO 24 18 
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YOU HAVE ENOUGH SUPPLIES FOR 5 MORE HOURS 
SHOOT OR MOVE? M 
WERE TO? 4 


-START OF NEXT HOUR— 

«< I HEAR WINGS >>> 

CURRENT ROOM IS 4 
TUNNELS LEAD TO 16 8 3 

YOU HAVE ENOUGH SUPPLIES FOR 4 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO? 16 


-START OF NEXT HOUR— 

«< I HEAR WINGS »> 

«< I SMELL A WUMPUS!!! »> 

CURRENT ROOM IS 16 
TUNNELS LEAD TO 4 12 13 

YOU HAVE ENOUGH SUPPLIES FOR 3 MORE HOURS 
SHOOT OR MOVE? SHOOT 

HOW MANY ROOMS DO YOU WISH TO SHOOT THROUGH? 1 
ENTER THE FIRST BOOM NUMBER* 12 

WATCH IT# THE WUMPUS IS AWAKE! 

GOOD FOR YOU# YOU GOT HIM AND HE 
WILL LEAD YOU OUT OF THE CAVE 
WOULD YOU LIKE TO SEE A MAP OF THE CAVES? YES 


ROOM TUNNELS 


1 

7 

12 

6 

2 

3 

13 

9 

3 

2 

4 

18 

4 

16 

8 

3 

5 

9 

7 

17 

6 

10 

17 

1 

7 

13 

5 

1 

8 

4 

19 

1 1 

9 

2 

15 

5 

10 

11 

14 

6 


ITEM ROOM 

11 

12 

13 

14 

15 

16 
17 

B 18 

P 19 

20 


TUNNELS ITEM 


12 

8 

10 


16 

1 

11 

W 

2 

16 

7 

B 

19 

10 

20 


18 

9 

0 

P 

4 

12 

13 


5 

20 

6 

B 

3 

19 

15 


18 

6 

14 


0 

14 

17 
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WOULD YOU LIKE TO PLAY ANOTHER GAME? Y 


HANG ON A BIT WHILE I SET THIS UP 

-START OF NEXT HOUR- 

CURRENT ROOM IS 10 

TUNNELS LEAD TO 14 8 13 

YOU HAVE ENOUGH SUPPLIES FOR 10 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO? 8 

DUCK!! BAT MIGRATION* ONE COLONY OF BATS HAS MOVED 
YOU LOSE SOME SUPPLIES WHILE HIDING 
LISTEN!! A ROCK SLIDE HAS CLOSED A TUNNEL 
LOOK* YOU FOUND SUPPLIES LEFT BY A 
PREVIOSLY (EATEN) EXPLORER 

--START OF NEXT HOUR- 

CURRENT ROOM IS 8 

TUNNELS LEAD TO 10 0 20 

YOU HAVE ENOUGH SUPPLIES FOR 12 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO? 20 


--START OF NEXT HOUR- 

«< I FEEL A DRAFT »> 

CURRENT ROOM IS 20 
TUNNELS LEAD TO 7 12 8 

YOU HAVE ENOUGH SUPPLIES FOR 11 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO? 7 

LISTEN!! A ROCK SLIDE HAS CLOSED A TUNNEL 


--START OF NEXT HOUR- 

CURRENT ROOM IS 7 
TUNNELS LEAD TO 5 14 20 

YOU HAVE ENOUGH SUPPLIES FOR 10 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO? 5 
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LOOK* YOU FOUND SUPPLIES LEFT BY 
A PREVIOUSLY (EATEN) EXPLORER 

-START OF NEXT HOUR- — 

«< I HEAR WINGS »> 

CURRENT ROOM IS 5 
TUNNELS LEAD TO 18 16 7 

YOU HAVE ENOUGH SUPPLIES FOR 13 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO? 16 

DUCK!! BAT MIGRATION* ONE COLONY OF BATS HAS MOVED 
YOU LOSE SOME SUPPLIES WHILE HIDING 
WHOOPS* BATS RELOCATE YOU. 

YOU LOSE SOME SUPPLIES. 

-START OF NEXT HOUR- 


CURRENT ROOM IS 15 
TUNNELS LEAD TO 18 19 6 

YOU HAVE ENOUGH SUPPLIES FOR 9 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO? 6 

DUCK!! BAT MIGRATION* ONE COLONY OF BATS HAS MOVED 
YOU LOSE SOME SUPPLIES WHILE HIDING 
LOOK* YOU FOUND SUPPLIES LEFT BY A 
PREVIOUSLY (EATEN) EXPLORER 

-START OF NEXT HOUR- 

CURRENT ROOM IS 6 
TUNNELS LEAD TO 15 4 17 

YOU HAVE ENOUGH SUPPLIES FOR 9 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO? 4 


-START OF NEXT HOUR- 

«<I SMELL A WUMPUS »> 

CURRENT ROOM IS 4 
TUNNELS LEAD TO 2 11 6 

YOU HAVE ENOUGH SUPPLIES FOR 8 MORE HOURS 



SHOOT OR MOVE? S 


HOW MANY ROOMS DO YOU WISH TO SHOOT THROUGH? 1 
ENTER THE FIRST ROOM NUMBERt 2 

WATCH IT* THE WUMPUS IS AWAKE! 

LISTEN!! A ROCK SLIDE HAS CLOSED A TUNNEL. 

CHOMP MUNCH MUNCH MUNCH GULP 
THE WUMPUS GOTCHA 
YOU LOSE CHEE HEE) 


WOULD 

YOU LIKE 

TO SEE 

A MAP OF 

THE CAVES? 

YES 




ROOM 

TUNNELS 

ITEM 

ROOM 

TUNNELS 

ITEM 

1 

0 

12 

11 


11 

1 

4 

19 


2 

9 

13 

4 


12 

20 

1 

16 

P 

3 

14 

17 

18 

P 

13 

10 

2 

17 


4 

2 

11 

6 

W 

14 

10 

3 

7 

B 

5 

18 

16 

7 


15 

18 

19 

0 


6 

0 

4 

17 


16 

12 

5 

19 

B 

7 

5 

14 

20 


17 

13 

3 

6 


8 

10 

0 

20 


18 

3 

15 

5 


9 

0 

2 

0 


19 

11 

15 

16 


10 

14 

8 

13 


20 

7 

12 

8 



WOULD YOU LIKE TO PLAY ANOTHER GAME? Y 


HANG ON A BIT WHILE I SET THIS UP 

— START OF NEXT HOUR— 

«< I HEAR WINGS »> 

«< I FEEL A DRAFT »> 


CURRENT ROOM IS 15 
TUNNELS LEAD TO 16 18 12 

YOU HAVE ENOUGH SUPPLIES FOR 10 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO ? 125 

MUST BE A ROOM # FROM 1 TO 20* TRY AGAIN* 2 
CAN’T GET THERE FROM HERE 
WHERE TO? 16 


LISTEN!! A ROCK SLIDE HAS CLOSED A TUNNEL 

-START OF NEXT HOUR- 

«< I HEAR WINGS »> 

CURRENT ROOM IS 16 
TUNNELS LEAD TO 4 0 20 

YOU HAVE ENOUGH SUPPLIES FOR 9 MORE HOURS 
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SHOOT OR MOVE? XXX 
PLEASE ANSWER SHOOT OR MOVE 

SHOOT OR MOVE? S 

HOW MANY ROOMS DO YOU WISH TO SHOOT THROUGH? 10 

NUMBER MUST BE A NUMBER FROM l TO 5 

HOW MANY ROOMS DO YOU WISH TO SHOOT THROUGH? 5 

ENTER THE FIRST ROOM NUMBERS 1 

ENTER THE NEXT ROOM NUMBERS 2 

ENTER THE NEXT ROOM NUMBERS 3 

ENTER THE NEXT ROOM NUMBERS 4 

ENTER THE NEXT ROOM NUMBERS 5 

WATCH IT* THE WUMPUS IS AWAKE! 

WATCH IT* WILD SHOT! 

LISTEN!! A ROCK SLIDE HAS CLOSED A TUNNEL 
LOOK* YOU FOUND SUPPLIES LEFT BY A 
PREVIOUSLY (EATEN) EXPLORER 

-START OF NEXT HOUR™ 

«< I HEAR WINGS »> 

CURRENT ROOM IS 16 
TUNNELS LEAD TO 20 4 0 

YOU HAVE ENOUGH SUPPLIES LEFT FOR 11 MORE HOURS 
SHOOT OR MOVE? S 

HOW MANY ROOMS DO YOU WISH TO SHOOT THROUGH? 2 
ENTER THE FIRST ROOM NUMBERS 4 
ENTER THE NEXT ROOM NUMBERS 16 

NICE GOING* TURKEY* YOU SHOT YOURSELF IN THE LEG 
AND HAVE USED MEDICAL SUPPLIES. 


-START OF NEXT HOUR- 

«< I HEAR WINGS »> 

CURRENT ROOM IS 16 
TUNNELS LEAD TO 0 20 4 

YOU HAVE ENOUGH SUPPLIES FOR 4 MORE HOURS 
SHOOT OR MOVE? M 
WHERE TO? 4 

RATS FROM THE PITS EAT HALF YOUR SUPPLIES!! 
WHOOPS* BATS RELOCATE YOU 
YOU LOSE SOME SUPPLIES. 



START OF NEXT HOUR 


CURRENT ROOM IS 9 
TUNNELS LEAD TO 2 11 8 

YOU HAVE ENOUGH SUPPLIES FOR 1 MORE HOUR 
SHOOT OR MOVE? M 
WHERE TO? 2 

YOU HAVE RUN OUT OF SUPPLIES AND WILL STARVE. 
YOU LOSE (HEE HEE) 

WOULD YOU LIKE TO SEE A MAP OF THE CAVES? N 
WOULD YOU LIKE TO PLAY ANOTHER GAME? N 


THANK YOU FOR PLAYING> COME AGAIN SOMETIME. 


READY 
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Appendix B: 


6800 Assembler Source Listing 
BASIC Source Listing 
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6800 Assembler Source Listing 


(0020) 

1 

ORG 

$20 


(0020) 

7E 00 00 1 

JMP 

START 


(0023) 

1 array 

RMB 

5 

ROOM SEQUENCE 

(0020) 

I ARRAYNO 

RMB 

2 

ARRAY POINTER 

(002A) 

l awake 

RMB 

1 

AWAKE SW 

(0020) 

1 BLANK 

EQU 

$20 


(002B) 

1 COUNT 

RMB 

1 

GENERAL COUNTER 

(OOOD) 

I CH 

EQU 

$00 

CARRIAGE RETURN 

<0020 

I CURRENT 

RMB 

1 

CURRENT HUNTER LOCATION 

(002D) 

1 DAYS 

RMB 

1 

DAYS LEFT 

(002E) 

1 DELIM 

RMB 

1 

END OF INPUT DELIMITER 

(002F) 

1 end 

RMB 

1 

game over SW 

(0004) 

1 EOT 

EQU 

4 

END OF STRING 

(00 0A) 

1 LF 

EQU 

$0 A 

LINE FEED 

(0030) 

\ OLDROOM 

RMB 

1 

SAVE ROOM NO 

(0031) 

1 HOCKS 

RMB 

1 

ROCK COUNTER 

(0032) 

I HOOMNO 

RMB 

1 

GENERAL ROOM NO 

(0033) 

1 HOOMTLY 

RMB 

1 

GENERAL ROOM COUNTER 

(0034) 

1 SAVX 

RMB 

2 

SAVE IX 

(0036) 

I SHOTS 

RMB 

1 

NO OF SHOTS LEFT 

(0037) 

I STOP 

RMB 

1 

STOP ARROW SW 

(0038) 

» ST UF 

RMB 

4 

RANDOM STUPH FOR RANDOM NUMBER GENERATOR 

(0030 

1 SYMBOL 

RMB 

1 

GENERAL SYMBOL HOLDER 

( 0 0 3 D > 

1 TEST 

RMB 

1 

TEST ROOM FOR SHOOTING SEQUENCE 

(003E) 

1 WILD 

RMB 

1 

WILD ARROW IND 

(003F) 

I WUMPROOM 

RMB 

l 

CURRENT WUMPUS LOCATION 


••SKIP 


« 

* 


(0040) 

02 

05 

06 

1 

ROOMS 

FCB 

2*5?6# 

(0043) 

00 



1 




(0044) 

01 

03 

07 

I 


FCB 

1*3*7* 

(0047) 

00 



\ 




(0048) 

02 

04 

08 

1 


FCB 

2 ? 4 ? 8 ? 

(004B) 

00 



1 




(0040 

03 

05 

09 

1 


FCB 

3«5f 9« 

(004F) 

00 



I 




(0050) 

01 

04 

OA 

1 


FCB 

1*4*10? 

(0053) 

00 



1 




(0054) 

01 

OB 

OC 

1 


FCB 

If11 * 12* 

(0057) 

00 



1 




(0058) 

02 

OC 

OD 

1 


FCB 

2f 12113t 

(005B) 

00 



1 




(0050 

03 

OD 

OE 

1 


FCB 

3f13tl4t 

(005F) 

00 



1 




(0060) 

04 

OE 

OF 

1 


FCB 

4tl4fl5t 

(0063) 

00 



1 




(0064) 

05 

OB 

OF 

1 


FCB 

5t11f15? 

(0067) 

00 



1 




(0068) 

06 

OA 

11 

1 


FCB 

6#10?17? 

(006B) 

00 



1 




(0060 

06 

07 

12 

1 


FCB 

6? 7 ? 18? 

(006F) 

00 



1 




(0070) 

07 

08 

13 

( 


FCB 

7?8? 19? 

(0073) 

00 



1 




(0074) 

08 

09 

14 

1 


FCB 

8*9*20? 

(0077) 

00 



1 




(0078) 

09 

OA 

10 

1 


FCB 

9*10*16? 

(007B) 

00 



1 




(0070 

OF 

11 

14 

1 


FCB 

15?17 ?20? 

(007F) 

00 



1 




(0080) 

OB 

10 

12 

1 


FCB 

11?16?18? 

(0083) 

00 



1 




(0064) 

OC 

11 

13 

1 


FCB 

12?17?19? 

(0087) 

00 



1 




(0088) 

OD 

12 

14 

1 


FCB 

13*18*20? 

(008B) 

00 



I 




(0080 

OE 

10 

13 

1 


FCB 

14?16?19? 

(008F) 

00 



1 

i 

• 



(0090) 

01 

01 


l 

1 

TRANS 

FCB 

1? 1 

(0092) 

02 

02 


1 


FCB 

2*2 

(0094) 

03 

03 


1 


FCB 

3*3 

(0096) 

04 

04 


I 


FCB 

4*4 

(0098) 

05 

05 


1 


FCB 

5.5 

(009A) 

06 

06 


1 


FCB 

6?6 

(0090 

07 

07 


1 


FCB 

7.7 

(009E) 

08 

08 


1 


FCB 

6?8 

(00AO) 

09 

09 


1 


FCB 

9.9 

(00A2) 

OA 

OA 


1 


FCB 

10*10 

(00A4) 

OB 

OR 


1 


FCB 

11?11 




< 00A6) 

OC 

OC 1 

FCB 

12# 12 

(0 0A8) 

00 

00 1 

FCB 

13*13 

(OOAA) 

OE 

OE 1 

FCB 

14*14 

< 00 AC) 

OF 

OF | 

FCB 

15*15 

(OOAE) 

10 

10 1 

FCB 

16*16 

(OOBO) 

11 

11 1 

FCB 

17*17 

(00B2) 

12 

12 1 

FCB 

18*18 

(00B41 

13 

13 1 

FCB 

19*19 

(00B6) 

14 

14 | 

FCB 

20«20 




<0008) 21 
(00B9) 21 

< 00BA) 14 

(OOBB) 05 
<0080 OA 
(OOBD) 05 
(OOBE) 05 
(OOBF) 08 
<00C0) 21 


PKOBl 

FCB 

33 

ARROW AMONG BATS WILL HIT ONE 

HM0B2 

FCB 

33 

ARROW OVER PIT WILL FALL IN 

PK0B3 

FCB 

20 

arrow hitting hunter won*t kill 

PROB* 

FCB 

05 

bat migration 


FCB 

10 

FIND THROWING ROCK 


FCB 

05 

RATS EAT SUPPLIES 


FCB 

05 

ROCK SLIDE 


FCB 

08 

FIND MORE SUPPLIES 

PR0B8 

FCB 

33 

THROWN ROCK WILL KILL WUMPUS 




* 


<00C1> 

7E 

El 

AC 

1 

charin 

JMP 

SE1AC 

(OOC4) 

7E 

El 

01 

1 

charout 

JMP 

SF1D1 

(00C7) 

36 



1 

STROUT 

PSHA 


< 00C8) 

BO 

EO 

7E 

1 


JSR 

SE07E 

< OOCB) 

32 



1 


PULA 


<OOCC) 

39 



1 


RTS 


(OOCD) 

36 



1 

BLKOUT 

PSHA 


< OOCE) 

BD 

EO 

CC 

I 


JSR 

SEOCC 

(0001) 

32 



1 


PULA 


(0002) 

39 



1 

i 

• 

RTS 


<0100) 




1 

1 


ORG 

*100 

<0100) 

7E 

00 

00 

1 

start 

JMP 

main 

(0021) 

01 

00 


\ 

1 

1 

••SKIP 

• 



<0103) 

00 

OA 

00 

1 

1 

* 

CHLF 

FCB 

CR*LF »tEOT 

(0106) 

04 



1 




(0107) 

00 

OA 

OA 

1 

TX01 

FCB 

CR#LFtLF* 

< 01OA) 

00 



1 




(010B) 

43 

55 

52 

1 


FCC 

/CURRENT ROOM IS:/ 

C010E) 

52 

45 

4E 

1 




<0111) 

54 

20 

52 

1 




<0114) 

4F 

4F 

40 

1 




(0117) 

20 

49 

53 

1 




< 011 A ) 

3A 



1 




(01 IB) 

04 



1 


FC8 

EOT 

<0110 

00 

OA 

00 

1 

TX02 

FCB 

CR*LF•• 

< 01 IF) 

00 



1 



(0120) 

54 

55 

4E 

( 


FCC 

/TUNNELS LEAD TO:/ 

(0123) 

4E 

45 

4C 

1 




(0126) 

53 

20 

4C 

1 




(0129) 

45 

41 

44 

1 




(0120 

20 

54 

4F 

1 




(012F) 

3A 



1 




(0130) 

04 



1 


FCB 

EOT 

(0131) 

00 

OA 

OA 

) 

TX03 

FCB 

CRtLF *LF# 

(0134) 

00 



1 




(0135) 

4D 

4F 

56 

\ 


FCC 

/MOVE OR SHOOT? / 

(0138) 

45 

20 

4F 

1 




(013B) 

52 

20 

53 

1 




(013E) 

48 

4F 

4F 

I 




(0141) 

54 

3F 

20 

1 




(0144) 

04 



I 


FCB 

EOT 

(0145) 

20 

57 

48 

1 

TX04 

FCC 

/ WHERE? / 

(0148) 

45 

52 

45 

1 




(014B) 

3F 

20 


1 




(0140) 

04 



1 


FCR 

EOT 

(014E) 

OD 

OA 

00 

1 

TX05 

FCB 

CR»LF 11 

(0151) 

00 



1 



(0152) 

49 

20 

48 

t 


FCC 

/I HEAR WINGS/ 

(0155) 

45 

41 

52 

1 




(0158) 

20 

57 

49 

1 




(015B) 

4E 

47 

53 

1 




(OISE) 

04 



1 


FCB 

EOT 

(015F) 

00 

OA 

00 

1 

TX06 

FCB 

CRfLF*♦ 

(0162) 

00 



I 




(0163) 

49 

20 

46 

1 


FCC 

/I FEEL A DRAFT/ 

(0166) 

45 

45 

4C 

1 





26 




(0169) 

20 

41 

20 1 




(0160 

44 

52 

41 1 




(016F) 

46 

54 

1 




(0171) 

04 


1 


FCB 

EOT 

(0172) 

00 

OA 

00 1 

TX07 

FCB 

CRflF.t 

(0175) 

00 


1 




(0176) 

49 

20 

53 1 


FCC 

/I SMELL A WUMPUSI/ 

(0179) 

40 

45 

4C 1 




(0170 

4C 

20 

41 | 




(0170 

20 

57 

55 1 




(0182) 

40 

50 

55 1 




(0185) 

53 

21 

1 




(0187) 

04 


t 

1 

♦♦SKIP 

FCB 

EOT 

(0188) 

OD 

OA 

00 1 

TX08 

FCB 

CRtLF•» 

(018B) 

00 


1 




(0180 

59 

4F 

55 1 


FCC 

/YOU HAVE RUN OUT OF SUPPLIES AND WILL STARVE/ 

(0180 

20 

48 

41 1 




(0192) 

56 

45 

20 1 




(0195) 

52 

55 

4E 1 




(0198) 

20 

4F 

55 1 




(019B) 

54 

20 

4F 1 




(0190 

46 

20 

53 1 




( 0 1A1) 

55 

50 

50 1 




C01A4) 

4C 

49 

45 1 




(01A7) 

53 

20 

41 | 




( 0 1 A A ) 

4E 

44 

20 1 




(01 AD) 

57 

49 

4C 1 




(01B0) 

4C 

20 

53 1 




(01B3) 

54 

41 

52 1 




(01B6) 

56 

45 

1 




(01B8) 

04 


1 


FCB 

EOT 

(01R9) 

00 

OA 

00 t 

TX09 

FCB 

CRtLF** 

(01BC) 

00 


1 




(01BD) 

59 

59 

59 1 


FCC 

/YYYIIIIEEEEEE•••• YOU FELL INTO A PIT/ 

(01C0) 

49 

49 

49 1 




(01C3) 

49 

45 

45 1 




(01C6) 

45 

45 

45 1 




(01C9) 

45 

2E 

2E I 




(01CC) 

2E 

2E 

20 1 




(0 ICO 

59 

4F 

55 1 




(0102) 

20 

46 

45 1 




(01D5) 

4C 

4C 

20 ( 




(0108) 

49 

4E 

54 1 




(010B) 

4F 

20 

41 1 




(01DE) 

20 

50 

49 1 




< 01E1) 

54 


1 




(01E2) 

04 


1 


FCB 

EOT 

(01E3) 

00 

OA 

00 1 

TX10 

FCB 

CR *LF* * 

(01E6) 

00 


I 




( 01E 7) 

41 

41 

52 1 


FCC 

/AARRRRGGGGHHH.... YOU HAVE SHOT YOURSELF/ 

(01EA) 

52 

52 

52 1 




(01ED) 

47 

47 

47 1 




(01E 0 ) 

47 

48 

48 i 




(01F3) 

48 

2E 

2E 




< 01F 6) 

2E 

2E 

20 




(01F9) 

59 

4F 

55 




(01FC) 

20 

48 

41 




(01FF) 

56 

45 

20 




(0202) 

53 

48 

4F 




(0205) 

54 

20 

59 




(0208) 

4F 

55 

52 




(020B) 

53 

45 

4C 




(020E) 

46 






(020F) 

04 



♦♦SKIP 

FCB 

EOT 

(0210) 

00 

OA 

00 

TXU 

FCB 

CRtLF * « 

(0213) 

00 






(0214) 

43 

20 

48 


FCC 

/CHOMP CRUMP MUNCH GULP!/ 

(0217) 

20 

4F 

20 




(021A) 

40 

20 

50 




(0210) 

20 

20 

43 




(0220) 

52 

55 

40 




(0223) 

50 

20 

40 




(0226) 

55 

4E 

43 




(0229) 

48 

20 

47 




(0220 

55 

4C 

50 




(022F) 

21 






(0230) 

00 

OA 

00 


FCB 

CR*LFt* 

(0233) 

00 






(0234) 

20 

20 

54 


FCC 

/ THE WUMPUS GOT YOU!/ 

(0237) 

48 

45 

20 






(023A) 

57 

55 

4D 

1 



(023D) 

50 

55 

53 

1 



(0240) 

20 

47 

4F 

1 



(0243) 

54 

20 

59 

1 



(0246) 

4F 

55 

21 

1 



(0249) 

04 



1 


FCB 

( 024A) 

OD 

OA 

00 

1 

TX12 

FCB 

(024D) 

00 



1 



(024E) 

59 

4F 

55 

1 


FCC 

(0251) 

20 

4C 

4F 

1 



(0254) 

53 

45 

20 

1 



(0257) 
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57 


1 

RRM2 

CMPA 

#’W 


(OBE5) 

06 



) 





(OBEE) 

26 

00 


1 


BNE 

RRM9 


(OBFO) 

CE 

01 

72 

1 


LDX 

#TX07 

I SMELL A MUMPUS 

(OBF3) 

BD 

00 

C7 

1 


JSR 

STROUT 


(OBF6) 

BD 

08 

13 

1 

RKMQ 

JSR 

PULX 

RESTORE IX 

(0802) 

23 



1 





(OBEF) 

06 



1 





(0BF9) 

39 



1 

1 

« 

• 

RTS 



(OBFA) 

BD 

08 

02 

i 

1 

\ 

* 

WATS 

JSR 

PSHX 


(0B64) 

OB 

fa 


1 





(OBFO) 

CE 

03 

46 

1 


LDX 

#TX20 

MHOOPS 

(OCOO) 

BD 

00 

C7 

1 


JSR 

STROUT 


(0C03) 

BD 

09 

4F 

1 


JSR 

RANDROOM 

PICK A ROOM 

(0C06) 

97 

2C 


1 


STAA 

CURRENT 

MOVE TO IT 

(0C08) 

06 

2D 


1 


LDAB 

DAYS 


(OCOA) 

17 



1 


TBA 



(OCOB) 

57 



t 


ASRB 



(OCOC) 

57 



1 


ASRB 



(OCOD) 

10 



1 


SBA 



(OCOE) 

97 

2D 


1 


STAA 

days 


(0C10) 

BD 

08 

13 

1 


JSR 

PULX 

RESTORE IX 

(OC13) 

39 



\ 

1 

1 

••SKIP 

• 

RTS 



(0C14) 

CE 

01 

B9 

1 

1 

• 

PITS 

LDX 

#TX09 

REPORT PIT 

(0B7A) 

OC 

14 


1 






42 




(0C17) 

00 

00 

C7 

1 


JSR 

STROUT 

< 0C1A) 

BD 

09 

Cl 

1 


JSR 

LOST 

(0C1D) 

39 



1 

1 

i 

• 

# 

RTS 


(0C1E > 

BO 

08 

02 

1 

1 

1 

• 

HUMP_W 

JSR 

PSHX 

(0B6D) 

oc 

IE 


1 




( 0 C 21) 

70 

00 

2A 

1 


TST 

AWAKE 

(0C24) 

22 

00 


1 


BHI 

BMP5 

(0C26) 

CE 

01 

03 

1 


LDX 

#CRLF 

(0C29) 

BD 

00 

C7 

1 


JSR 

STROUT 

(0C2C) 

CE 

04 

30 

1 


LDX 

WTX28 

(0C2F) 

BD 

00 

C7 

1 


JSR 

STROUT 

(0C32) 

CE 

04 

BA 

1 


LOX 

#TX33 

(0C35) 

BD 

00 

C7 

\ 


JSR 

STROUT 

(0C38) 

CE 

01 

03 

1 


LDX 

#CRLF 

(OC30) 

BO 

00 

C7 

1 


JSR 

STROUT 

(0C3E) 

CE 

04 

45 

I 


LDX 

WTX29 

(0C41) 

BD 

00 

C7 

1 


JSR 

STROUT 

<0C44> 

7C 

00 

2 A 

1 


INC 

AWAKE 

( 0C47) 

BO 

OB 

13 

1 


JSR 

PULX 

(0C4A) 

39 



\ 


RTS 


< 0C4B) 

CE 

02 

10 

1 

BMP5 

LDX 

#TX11 

(0C25) 

25 



1 




(0C4E) 

BD 

00 

C7 

1 


JSR 

STROUT 

<0C51> 

BD 

09 

Cl 

1 


JSR 

LOST 

( 0C54) 

BD 

08 

13 

! 


JSR 

PULX 

(0C57) 

39 



1 

1 

1 

•♦SKIP 

• 

RTS 


(0C58) 

7D 

00 

36 

1 

1 

• 

SHOOT 

TST 

SHOTS 

(0012) 

OC 

50 


1 




(0C5B) 

26 

00 


1 


8NE 

sio 

(0C5D) 

BD 

00 

00 

1 


JSR 

THROW 

(0C60) 

39 



1 


RTS 


(0C61) 

7F 

00 

3E 

1 

S10 

CLR 

WILD 

(0C5C) 

04 



1 




(0C64) 

7F 

00 

37 

1 


CLR 

STOP 

(0C67) 

7A 

00 

36 

1 


DEC 

SHOTS 

(0C6A) 

CE 

01 

03 

1 


LDX 

WCRLF 

(0C6D) 

BD 

00 

C7 

1 


JSR 

STROUT 

(0C70) 

CE 

01 

45 

1 


LDX 

WTX04 

(0C73) 

BD 

00 

C7 

1 


JSR 

STROUT 

(0C76) 

CE 

01 

03 

1 


LDX 

#CRLF 

(0C79) 

BD 

00 

C7 

1 


JSR 

STROUT 

(0C7C) 

CE 

00 

23 

1 


LDX 

•ARRAY 

(0C7F) 

DF 

20 


1 


STX 

arrayno 

(0C81) 

96 

2C 


1 


LDAA 

CURRENT 

(0C83) 

97 

3D 


1 


STAA 

TEST 

(0C85) 

C6 

01 


1 


LDAB 

• 1 

(0C87) 

07 

33 


1 

sil 

STAB 

ROOMTLY 

(0C89) 

BD 

08 

26 

1 


JSR 

ROOMIN 

(OC0C) 

40 



) 


TSTa 


(0C8D) 

27 

00 


1 


BEQ 

S13 

(0C8F) 

A7 

00 


1 


STAA 

X 

(0C91) 

08 



1 


I NX 


(0C92) 

7C 

00 

33 

) 


INC 

ROOMLY 

(0C95) 

96 

2E 


1 


LDAA 

DELIM 

(0C97) 

81 

OD 


1 


cmpa 

#CR 

(0C99) 

27 

00 


1 


BEQ 

S13 

(0C98) 

06 

33 


I 


LDAB 

ROOMTLY 

(0C9D) 

Cl 

04 


1 


CMPB 

#4 

(0C9F) 

26 

E6 


1 


BNE 

Sll 

(0CA1) 

BD 

08 

26 

1 

SI 2 

JSR 

ROOMIN 

(0CA4) 

4D 



1 


TSTa 


(OCAS) 

27 

00 


1 


BEQ 

Si 3 

(0CA7) 

96 

2E 


1 


LDAA 

DELIM 

(0CA9) 

61 

OD 


1 


cmpa 

#CR 

(OCAB) 

26 

F4 


1 


BNE 

S12 

(OCAD) 

7D 

00 

2A 

1 

SI 3 

TST 

AWAKE 

(0C8E) 

IE 



1 




(0C9A) 

12 



1 




(0CA6) 

06 



1 




(OCBO) 

22 

00 


1 


RHI 

S20 

(0C82) 

CE 

01 

03 

1 


LDX 

• CRLF 

(0CB5) 

BD 

00 

C7 

( 


JSR 

STROUT 

(0CB8) 

CE 

04 

3B 

1 


LDX 

• TX28 

(OCBB) 

BD 

00 

C7 

1 


JSR 

STROUT 

(OCBE) 

CE 

04 

45 

1 


LDX 

#TX?9 

(0CC1) 

BD 

00 

C7 

1 


JSR 

STROUT 


IF NOT AWAKE 

WATCH IT 
PRINT WARNING 

IS AWAKE 

wake him up 

ELSE PRINT CHOMP 


IF NO SHOTS 
CALL THROW 

CLEAR INDICATORS 

CR. LF 
WHERE TO? 

INIT ROOM ARRAY 


LOAD UP TO 3 ROOMS 

END ROOMS WHEN NO ROOM INPUT 

IF DELIMITER IS A CARRIAGE RETURN, 
GO TO END OF ROOM LIST 


IGNORE MORE ROOMS 

IF DELIMITER IS A CARRIAGE RETURN, 
GO TO END OF ROOM LIST 

IF WUMPUS IS ASLEEP THEN 


REPORT HIM AWAKE 


43 




(0CC4) 

7C 

00 

2A 

1 

1 

I 

•♦SKIP 

• 

INC 

AWAKE 





i 

1 

i 

• 

« 

SHOOT CONTINUED 

(0CC7) 

7 A 

00 

33 

i 

1 

S20 

DEC 

ROOMTLY 

(OCB1) 

15 



1 




(OCCA) 

26 

00 


1 


BNE 

S21 

(OCCC) 

39 



1 


RTS 


(OCCD) 

70 

00 

3E 

1 

S21 

TST 

WILD 

(OCCB) 

01 



1 




(OCDO) 

22 

00 


1 


BHI 

S22 

(0CD2) 

DE 

28 


1 


LDX 

arrayno 

(0CD4) 

7C 

00 

29 

1 


INC 

arrayno* 

(0CD7) 

E6 

00 


1 


LDAB 

X 

(0CD9) 

37 



1 


PSHB 


( 0 C D A) 

96 

3D 


1 


LDAA 

TEST 

(OCDC) 

BO 

09 

A3 

1 


JSR 

CONECTED 

(OCDF) 

50 



1 


TSTB 


(OCEO) 

22 

00 


1 


BHI 

S25 

(0CE2) 

CE 

04 

5C 

1 


LDX 

#TX30 

(0CE5) 

BD 

00 

C7 

1 


JSR 

STROUT 

(0CE8) 

CE 

04 

3B 

\ 


LDX 

#TX28 

(OCEB) 

60 

00 

C7 

1 


JSR 

STROUT 

(OCEE) 

7C 

00 

3E 

1 


INC 

WILD 

(0CF1) 

31 



1 


INS 


(0CF2) 

96 

3D 


1 

S22 

LDAA 

TEST 

(OCDI) 

20 



1 




(0CF4) 

BD 

09 

IB 

1 


JSR 

RaNDMOVE 

( 0CF7) 

36 



1 


psh a 


(0CF8) 

32 



1 

S25 

PULA 


(OCE 1) 

16 



1 




(0CF9) 

97 

3D 


1 


STAA 

TEST 

(OCFB) 

BD 

09 

5F 

1 


JSR 

PNTROOM 

(OCFE) 

A6 

03 


I 


LDAA 

3t X 

(0D00) 

81 

57 


1 


CMPa 

# * w 

( OD02) 

26 

00 


1 


BNE 

S31 

( 0DO4 ) 

BO 

09 

B7 

1 


JSR 

WON 

( 0D07 ) 

7C 

00 

2F 

1 


INC 

END 

( 0D0A) 

39 



1 


RTS 


(ODOB) 

ei 

42 


1 

S31 

cmpa 

#*B 

(0D03) 

07 



1 




(ODOD) 

26 

00 


i 


BNE 

S32 

(ODOF) 

bd 

00 

00 

1 


JSR 

STBAT 

(0012) 

70 

00 

37 

1 


TST 

STOP 

(0015) 

23 

00 


1 


BLS 

S32 

{ 0 D1 7) 

39 



t 


RTS 


(0D18) 

81 

50 


1 

S32 

CMPA 

#*P 

(ODOE) 

09 



1 




( OD1 6 ) 

01 



1 




(OD 1 A) 

26 

00 


1 


BNE 

S33 

(0D1C) 

BD 

00 

00 

1 


JSR 

STPIT 

(0D1F) 

7D 

00 

37 

1 


TST 

STOP 

(0D22) 

23 

00 


1 


BLS 

S33 

(0024) 

39 



1 


RTS 


(0D25) 

96 

3D 


1 

S33 

LDAA 

TEST 

(ODIB) 

09 



1 




(0D23) 

01 



I 




(0D27) 

91 

2C 


1 


cmp a 

CURRENT 

(0D29) 

26 

9C 


I 


BNE 

S20 

(0D28) 

BO 

00 

00 

1 


JSR 

STSELF 

(0D2E) 

39 



1 

1 

1 

♦♦SKIP 

• 

RTS 


(002F) 

7D 

00 

31 

! 

1 

• 

THROW 

TST 

ROCKS 

(0C5E) 

00 

2F 


! 




(0D32) 

26 

00 


\ 


BNE 

THRl 

(0034) 

CE 

05 

8F 

1 


LDX 

WTX38 

(0D37) 

BD 

00 

C7 

1 


JSR 

STROUT 

(0D3A) 

39 



1 


RTS 


(0D3B) 

7a 

00 

31 

t 

THR1 

DEC 

ROCKS 

(0D33) 

07 



1 




(0D3E) 

CE 

01 

45 

I 

THRO 

LDX 

#TX04 

(0041) 

BD 

00 

C7 

1 


JSR 

STROUT 

(0044) 

BD 

08 

26 

1 


JSR 

ROOM IN 

( 0D47) 

CE 

01 

03 

1 


LDX 

WCRLF 

(0D4A) 

BD 

00 

C7 

1 


JSR 

STROUT 

(0D4D) 

4D 



1 


TSTA 


(0D4E) 

27 

EE 


1 


BEQ 

THRO 

(0050) 

06 

2C 


1 


LDAB 

CURRENT 

(0D52) 

BD 

09 

A3 

1 


JSR 

CONECTED 


AND WAKE HIM UP 


LOOP FOR NUMBER OF ROOMS 


IF SHOT IS ALREADY WILD THEN 

GO TO RANDOM SHOT 
GET NEXT ROOM 

**NOTEl ARRAY MUST NOT CROSS PAGE BOUNDRY 


IF NEXT ROOM IS CONECTED TO CURRENT ROOM THEN 


CONTINUE 

ELSE PRINT WILD SHOT 
FOR FIRST ROOM WILO 
(WATCH IT) 


IGNORE PUSHED ROOM 
MAKE RANDOM MOVE 


LOOK AT ROOM SHOT INTO 


IF SHOT WUMPUS THEN 
GAME WON 


IF SHOT BATS 

THEN CALL STBAT 


IF SHOT PIT 

then call stpit 


IF SHOT SELF 

THEN CALL STSELF 


NOTHING TO THROW 


USE ROCK 
WHERE? 


ENTER ONE ROOM ONLY 
SEE IF CONNECTED ROOM 
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(0055) 

5D 


I 


TSTB 



(0056) 

22 

00 

\ 


BHI 

thr? 

IF SO CONTINUE 

(0D58) 

CE 

03 

9E 1 


LOX 

4TX22 

ELSE PRINT MISSED 

(0D5B) 

BD 

00 

C7 1 


JSR 

STROUT 


(0D5E) 

CE 

05 

BE 1 


LOX 

WTX39 

NOT connected 

(0D61) 

80 

00 

C7 1 


JSR 

STROUT 


(0D64) 

39 


1 


RTS 



(0D65) 

BO 

09 

5F | 

THR2 

JSR 

PNTROOM 


(0D57) 

OD 


1 





(0068) 

E6 

03 

1 


LDAB 

3fX 


(0D6A) 

Cl 

57 

t 


CMPB 

W'W 

IF HIT wumpus 

(0060 

27 

00 

1 


BEQ 

THR5 

GO TO HIT WUMPUS (5) 

(0D6E) 

Cl 

42 

1 


CMPB 


IF HIT BATS 

(0070) 

26 

00 

1 


BNE 

THR3 


(0072) 

BD 

00 

00 1 


JSR 

migratn 

CAUSE MIGRATION 

(0075) 

CE 

03 

9E I 

THR3 

LOX 

4TX22 

MISSED 

(0071) 

03 


1 





(0078) 

BO 

00 

C7 | 


JSR 

STROUT 


(007B) 

39 


1 


RTS 



(0D7C) 

CE 

00 

CO 1 

THR5 

LOX 

#PR0B8 

HIT WUMPUS WITH A ROCK 

(0060) 

OE 


1 





(0D7F) 

BO 

09 

8 F \ 


JSR 

PROBLITY 


(0082) 

40 


1 


tsta 



(0083) 

23 

00 

1 


BLS 

THR6 


(0085) 

CE 

02 

61 1 


LOX 

#TX 13 

BONK! YOU WON 

(0088) 

BD 

00 

C7 1 


JSR 

STROUT 


(0D8B) 

BD 

09 

87 1 

i 

JSR 

WON 


(0D8E) 

CE 

02 

90 1 


LOX 

#TX15 

WITH a rock 

(0091) 

BD 

00 

C7 1 


JSR 

STROUT 


(0094) 

39 


1 


RTS 



(0D95) 

CE 

03 

81 1 

THR6 

LDX 

*TX21 

THUD TRY AGAIN 

(0084) 

10 


1 





(0098) 

BD 

00 

C7 1 


JSR 

STROUT 


(0090) 

39 


I 

! 

I 

••SKIP* 

« 

RTS 



(0090 

CE 

00 

1 

B0 1 

• 

stbat 

LDX 

WPROBl 


(0D10) 

00 

9C 

1 





(0D9F) 

BD 

09 

8 F 


JSR 

PROBLITY 

IF PROBABLE TO 

(0DA2) 

40 




TSTa 


SHOOT BATi DO IT 

(0DA3) 

23 

00 



BLS 

STB9 


(OD A5) 

7C 

00 

37 


INC 

STOP 


(0DA8) 

CE 

04 

60 


LDX 

#TX31 

SHOT BAT 

(OOAB) 

BO 

00 

C7 


JSR 

STROUT 


(ODAE) 

39 



STB9 

RTS 



(0DA4) 

09 








t * 
I * 
I * 


(ODAF) 

CE 

00 

B9 

STPIT 

LDX 

#PR0B2 




(001D) 

00 

AF 








(0DB2) 

BD 

09 

8 F 


JSR 

PROBLITY 

IF PROBABLE 

TO 

LOOSE ARROW 

(0DB5) 

40 




TSTA 


DO IT 



(0DB6) 

23 

00 



BLS 

STP9 




(00B8) 

7C 

00 

37 


INC 

STOP 




(ODBB) 

CE 

04 

8 A 


LDX 

WTX32 

LOST ARROW 

IN 

PIT 

(ODBE) 

BD 

00 

C7 


JSR 

STROUT 




(00C1) 

39 



STP9 

RTS 





(0DB7) 

09 










I * 
I * 


(0DC2) 

CE 

00 

BA 

« 

STSELF 

LDX 

WPR0B3 


(0D2C) 

00 

C2 






(0DC5) 

00 

09 

8 F 


JSR 

PROBLITY 

IF PROBABLE TO INJURE ONLY 

(OOC0) 

40 




tsta 


DO IT 

(OOC9) 

23 

00 



BLS 

STS7 


(ODCB) 

CE 

03 

00 


LDX 

WTX19 

SHOT LEG 

(ODCE) 

BD 

00 

C7 


JSR 

STROUT 


(ODDI) 

96 

20 



LDAA 

DAYS 


(0DD3) 

81 

05 



cmpa 

#5 

IF LESS THAN 5 DAYS LEFT 

(0005) 

22 

00 



BHI 

STS3 


(0DD7) 

7C 

00 

20 


INC 

DAYS 

REDUCE BY HALF 

(OODA) 

74 

00 

20 


LSR 

DAYS 


(ODDO) 

20 

00 



BRA 

STS5 


(ODDF) 

86 

05 


STS3 

LDAA 

#5 

ELSE REDUCE TO 5 

(0DD6) 

08 







(OOE1) 

97 

20 



STAA 

DAYS 


(0DE3) 

BD 

08 

BD 

STS5 

JSR 

DAYSLEFT 

REPORT DAYS LEFT 

(OODE) 

04 







(0DE6) 

39 




RTS 




45 



(0DE7) 

CE 

01 

E3 

1 

STS7 

LDX 

#TX10 

OTHERWISE SHOT SELF 

(ODCA) 

1C 



1 





(ODEA) 

8D 

00 

C7 

1 


JSR 

STROUT 


(ODED) 

BD 

09 

Cl 

1 


JSR 

LOST 


(ODFO) 

39 



1 

1 

1 

♦♦SKIP 

« 

RTS 



(ODF1) 

CE 

01 

03 

1 

1 

• 

MOVE 

LDX 

#CRLF 

WRITE CRtLF 

(OBIT) 

OD 

FI 


1 





(ODF4) 

BD 

00 

C7 

1 


JSR 

STROUT 


(ODF 7) 

CE 

01 

45 

1 


LDX 

#TX04 

WHERE TO 

(ODFA) 

BD 

00 

C7 

1 


JSR 

STROUT 


(ODFD) 

BD 

08 

26 

1 


JSR 

ROOM IN 


(OEOO) 

CE 

01 

03 

1 


LDX 

#CRLF 


(0E03) 

BD 

00 

C7 

1 


JSR 

STROUT 


(0E06) 

4D 



1 


tsta 



(0E07) 

27 

E8 


1 


BEQ 

MOVE 


(0E09) 

D6 

2C 


1 


LDAP 

CURRENT 

IF NOT CONNECTED 

(OEOB) 

BD 

09 

A3 

1 


JSR 

CONECTED 


(OEOE) 

5D 



1 


TSTB 



< OEOF) 

23 

EO 


1 


BLS 

MOVF 

TRY AGAIN 

(OE11) 

97 

2C 


1 


STAA 

CURRENT 

SET NEW CURRENT ROOM 

(0E13) 

39 



1 

1 

i 

• 

# 

RTS 



(OEU) 

CE 

05 

DF 

1 

1 

1 

• 

DISPLAY 

LDX 

#TX40 

PRINT HEADING 

(o aod) 

OE 

14 


1 





(OE17) 

BD 

00 

C7 

1 


JSR 

STROUT 


(OE1A) 

86 

01 


1 


LDAA 

#1 

LOAD COUNTER 

(OE1C) 

CE 

00 

40 

1 


LDX 

#ROOMS 


(OE1F) 

BD 

08 

02 

1 

DSP1 

JSR 

PSHX 


(0E22) 

CE 

01 

03 

1 


LDX 

4CRLF 

AND GO TO NEW LINE 

(0E25) 

BD 

00 

C7 

1 


JSR 

STROUT 


(0E28) 

BD 

08 

13 

1 


JSR 

PULX 


(0E2B) 

36 



1 


PSHA 



(0E2C) 

BD 

08 

8F 

1 


JSR 

ROOMOUT 

PRINT ROOM 

(0E2F > 

BD 

00 

CD 

1 


JSR 

BLKOUT 

AND BLANK 

(0E32) 

BD 

00 

CD 

1 


JSR 

BLKOUT 

CHARACTERS 

(0E35) 

86 

03 


1 


LDAA 

43 


(0E37) 

97 

33 


1 


staa 

ROOMTLY 


< OE39) 

A6 

00 


I 

DSP2 

LDAA 

X 

PRINT 3 CONNECTIONS 

(0E3B) 

BD 

08 

8F 

1 


JSR 

ROOMOUT 


(OE3E) 

BD 

00 

CD 

1 


JSR 

BLKOUT 

WITH BLANKS AS SEPERATORS 

(OE41) 

08 



1 


I NX 



(OE42) 

7 A 

00 

33 

1 


DEC 

ROOMTLY 


(OE45) 

26 

F2 


1 


BNE 

DSP2 


(0E47) 

BD 

00 

CD 

( 


JSR 

BLKOUT 

AND BLANK 

(OE4A) 

BD 

00 

CD 

1 


JSR 

BLKOUT 


(OE4D) 

A6 

00 


1 


LDAA 

X 


(OE4F) 

BD 

00 

C4 

1 


JSR 

CHAROUT 

PRINT ROOM CONTENTS 

(OE52) 

08 



I 


INX 



(OE53) 

32 



1 


PULA 



(OE54) 

4C 



1 


INCA 


LOOP THROUGH 

(OE55) 

81 

15 


I 


CMPA 

#21 

20 ROOMS 

(OE57) 

26 

C6 


1 


BNE 

DSP1 


(OE59) 

39 



1 

1 

1 

♦♦SKIP 

« 

RTS 


RETURN 

(OE5A) 

CE 

00 

BB 

1 

1 

* 

HAPNINGS 

LDX 

#PR0B4 

POINT TO PROBABILITIES 

(OB26) 

OE 

5A 


1 





(OE5D) 

BD 

09 

8F 

1 


JSR 

PROBLITY 


(0E60) 

40 



1 


TSTA 


TEST FOR BAT MIGRATION 

(OE61) 

23 

00 


1 


BLS 

HAPl 


(OE63) 

BD 

00 

00 

1 


JSR 

migratn 


(OE66) 

BD 

09 

8F 

1 

HAP 1 

JSR 

PROBLITY 


(OE62) 

03 



1 





(OE69) 

40 



1 


TSTA 


TEST FOR FIND A ROCK 

(OE6A) 

23 

00 


1 


BLS 

HAP3 


(OE6C) 

BD 

00 

00 

1 


JSR 

ROCKX 


(OE6F) 

BD 

09 

8F 

1 

HAP3 

JSR 

PROBLITY 


(OE6B) 

03 



1 





(0E72) 

4D 



\ 


TSTA 


TEST FOR RATS EATING FOOD 

(0E73) 

23 

00 


1 


BLS 

HAP5 


(0E75) 

BD 

00 

00 

1 


JSR 

RATS 


(OE78) 

BD 

09 

8F 

1 

HAP5 

JSR 

PROBLITY 


(OE74) 

03 



1 





(OE78) 

4D 



t 


tsta 


TEST FOR ROCK SLIDE 

(0E7C) 

23 

00 


1 


BLS 

HAP7 


(0E7E) 

BD 

00 

00 

\ 


JSR 

SLIDE 



46 




(OE01) 

BD 

09 

8F 

1 

HAP7 

JSR 

problity 


(0E7D) 

03 



1 





(0E84) 

4D 



1 


tsta 


TEST FOR EXTRA SUPPLIES 

(OE05) 

23 

00 


1 


BLS 

HAP9 


( OE07) 

BD 

00 

00 

I 


JSR 

EXTRA 


( 0E8A) 

39 



1 

HAP9 

RTS 


return 

(OE06) 

03 



1 

1 

1 

♦•SKIP 

• 




(0E8B) 

BD 

08 

02 

1 

1 

• 

MIGRATN 

JSR 

PSHX 

SAVE IX 

(0E64) 

OE 

8B 


1 





(0D73) 

OE 

88 


1 





(0E8E) 

BD 

08 

F5 

I 


JSR 

rand 

REDUCE DAYS BY 

(0E91) 

84 

03 


1 


ANDA 

#$03 

X TO 4 

(0E93) 

4C 



1 


INCA 



(0E94) 

16 



1 


TAB 



(0E95) 

96 

2D 


1 


ldaa 

DAYS 


(0E97) 

10 



I 


SBA 



(0E98) 

97 

2D 


1 


STAA 

DAYS 


(0E9A) 

CE 

00 

40 

1 


LDX 

#ROOMS 


(OE90) 

A6 

03 


1 

MIG1 

LDAA 

3.X 

FIND SOME BATS 

(0E9F) 

81 

42 


1 


CMPA 

#•8 


(0EA1) 

27 

00 


1 


BEQ 

MIG2 


(OEA3) 

08 



1 


I NX 



(OEA4) 

08 



1 


INX 



(OEA5) 

08 



1 


INX 



(OEA6) 

08 



1 


INX 



(OEA7) 

20 

F4 


1 


BRA 

MIG1 


(OEA9) 

BD 

08 

02 

1 

MIG2 

JSR 

PSHX 

SAVE BAT LOCATION 

(OEA2) 

06 



1 





(OEAC) 

86 

01 


1 


LDAA 

#1 


(OEAE) 

97 

2B 


1 


STAA 

COUNT 


(OE0O) 

80 

OA 

CB 

1 


JSR 

6ENITEM 

LOAD NEW BATS RANDOMLY 

(0ER3) 

BD 

08 

13 

i 


JSR 

PULX 

RESTORE OLD BAT LOCATION 

(OEB6) 

6F 

03 


1 


CLR 

3t X 

CLEAR OUT OLD BATS 

(OEB8) 

CE 

02 

BC 

1 


LDX 

#TX18 

REPORT BATS 

(OE0B) 

BD 

00 

C7 

1 


JSR 

STROUT 


(OEBE) 

BD 

08 

13 

1 


JSR 

PULX 

RESTORE IX 

(OECl) 

39 



I 

1 

i 

« 

RTS 



(OEC2) 

7D 

00 

36 

i 

1 

1 

« 

ROCKX 

TST 

SHOTS 

IF ARROWS LEFT 

(OE6D) 

OE 

C2 


1 





(OEC5) 

27 

00 


1 


BEQ 

R0K1 


(0EC7) 

39 



1 


RTS 


return 

(0EC8) 

BD 

08 

02 

1 

HOK 1 

JSR 

PSHX 

SAVE IX 

(OEC6) 

01 



1 





{OECB) 

7C 

00 

31 

1 


INC 

ROCKS 

add to rock pile 

(OECE) 

CE 

03 

A9 

1 


LDX 

#TX23 

REPORT FIND 

(OEDD 

BD 

00 

C7 

1 


JSR 

STROUT 


(OED4) 

CE 

03 

BE 

1 


LDX 

#TX24 


(OED7) 

BD 

00 

C7 

I 


JSR 

STROUT 


(OEDA) 

BD 

08 

13 

1 


JSR 

PULX 

RESTORE IX 

(OEDD) 

39 



1 

1 

1 

♦♦SKIP 

« 

RTS 



(OEDE) 

BD 

00 

02 

1 

1 

• 

RATS 

JSR 

PSHX 

SAVE IX 

(0E76) 

OE 

DE 


1 





(OEED 

7C 

00 

2D 

1 


INC 

DAYS 


(OEE4) 

77 

00 

2D 

I 


ASR 

OAYS 

REDUCE DAYS BY HALF 

(0EE7) 

CE 

03 

F8 

1 


LDX 

#TX26 

report rats 

(OEEA) 

BD 

00 

C7 

I 


JSR 

STROUT 


(OEED) 

BD 

08 

13 

1 


JSR 

PULX 

RESTORE IX 

(OEFO) 

39 



t 

1 

• 

RTS 



(OEF1) 

BD 

08 

02 

i 

1 

1 

* 

SLIDE 

JSR 

PSHX 

SAVE IX 

(0E7F) 

OE 

FI 


\ 





(OEF4) 

BD 

09 

4F 

1 

SLD1 

JSR 

Randroom 

GET A TUNNEL 

(OEF7) 

97 

30 


1 


STAA 

oldroom 


(OEF9) 

A6 

01 


1 


LDAA 

ltX 


(OEFB) 

28 

F7 


1 


BMI 

SLD1 

IGNORE IF ALREADY CLOSED 

(OEFD) 

63 

01 


1 


COM 

ltX 

CLOSE HALF OF TUNNEL 

(OEFF) 

BD 

09 

5F 

1 


JSR 

pntroom 

POINT TO OTHER HALF 

(0F02) 

96 

30 


1 


LDAA 

oldroom 


(OF 04) 

A1 

00 


1 


CMPa 

X 


(OF 06) 

27 

00 


1 


BEQ 

SLD5 

FIND RIGHT TUNNEL BACK 

(0F08) 

08 



1 


INX 






(0F09) 

A1 

00 



CMPa 

X 


(OFOB) 

27 

00 



BEQ 

SLD5 


(OFOD) 

OQ 




INX 



(OFOE) 

63 

00 


SLD5 

COM 

X 

CLOSE OTHER HALF 

{0F07) 

06 







(OFOC) 

01 







( OF 10) 

CE 

04 

18 


LDX 

#TX27 

REPORT SLIDE 

(0F13) 

BD 

00 

C7 


JSR 

STROUT 


(OF 16) 

BD 

08 

13 


JSR 

PULX 

RESTORE IX 

(OF 19> 

39 



♦♦SKIP 

• 

RTS 



(OF 1 A) 

BD 

08 

02 

* 

extra 

JSR 

PSHX 

SAVE IX 

(OE88) 

OF 

1A 






(OF 10) 

BD 

08 

F5 


JSR 

RAND 

INCREASE DAYS BY 

(0F20) 

84 

03 



anda 

#$03 

1 TO 4 

(OF 22) 

4C 




INCA 



(0F23> 

16 




TAB 



(OF24) 

96 

2 D 



LDAA 

days 


< 0F26) 

IB 




ABA 



(0F27) 

97 

2D 



ST AA 

DAYS 


< 0F29) 

CE 

03 

A9 


LDX 

#TX23 

REPORT FIND 

(0F2C) 

BD 

00 

C7 


JSR 

STROUT 


(0F2F) 

CE 

03 

CE 


LDX 

#TX25 


(0F32) 

BD 

00 

C7 


JSR 

STROUT 


(0F35) 

BD 

08 

13 


JSR 

PULX 

RESTORE IX 

(OF30) 

39 



» 

« 

« 

RTS 




SYMBOL TABLE FOLLOWS! 

STAT 256 ARRY 35 

ARRO 

40 

AWAE 

42 

BLAK 

32 

COUT 

43 

CR 

13 

CURT 

44 

DAYS 

45 

DELM 

46 

END 

47 

EOT 

4 

LF 

10 

OLDM 

48 

ROCS 

49 

ROOO 

50 

ROOY 

51 

SAVX 

52 

SHOS 

54 

STOP 

55 

STUF 

56 

SYML 

60 

TEST 

61 

WILD 

62 

WUMM 

63 

ROOS 

64 

TRAS 

144 

PROl 

184 

PR02 

185 

PR03 

186 

PR04 

187 

PR08 

192 

CHAN 

193 

chat 

196 

STRT 

199 

BLKT 

205 

MAIN 

2507 

CRLF 

259 

TX01 

263 

TX02 

284 

TX03 

305 

TX04 

325 

TX05 

334 

TX06 

351 

TX07 

370 

TX08 

392 

TX09 

441 

TX10 

483 

TX 11 

528 

TX12 

586 

TX13 

609 

TX14 

624 

TX 15 

656 

TX16 

670 

TX17 

694 

TX18 

700 

TX19 

768 

TX20 

838 

TX21 

897 

TX22 

926 

TX23 

937 

TX24 

958 

TX25 

974 

TX26 

1016 

TX27 

1048 

TX28 

1083 

TX29 

1093 

TX30 

1116 

TX31 

1133 

TX32 

1162 

TX33 

1210 

TX34 

1247 

TX35 

1279 

TX36 

1315 

WHA? 

1376 

TX37 

1387 

TX38 

1423 

TX39 

1470 

TX40 

1503 

TX99 

1530 

PSHX 

2050 

PULX 

2067 

ROON 

2086 

INI 

2096 

IN2 

2111 

IN3 

2149 

INS 

2177 

IN45 

2173 

IN31 

2158 

IN4 

2171 

ROOT 

2191 

OUTO 

2204 

0UT5 

2221 

OUT 1 

2216 

0UT7 

2230 

DECT 

2261 

DAYT 

2237 

DEC1 

2264 

DEC2 

2286 

RAND 

2293 

RANE 

2331 

RM v 1 

2339 

RMV5 

2357 

RMV7 

2378 

PNTM 

2399 

RMV9 

2380 

RANM 

2383 

PNT1 

2407 

PNT2 

2413 

PNTS 

2415 

PNT3 

2422 

PNT4 

2428 

PRON 

2430 

PR09 

2445 

PROS 

2438 

PROY 

2447 

PRB1 

2463 

PRB5 

2465 

COND 

2467 

C0N5 

2484 

WON 

2487 

LOST 

2497 

MAN 1 

2510 

TEAH 

2535 

STAM 

2541 

GENS 

2615 

PLAY 

2788 

MAN2 

2547 

DSPY 

2572 

NXTE 

2575 

DISY 

3604 

FINL 

2600 

CLER 

2726 

GENM 

2763 

GEN1 

2659 

GEN6 

2704 

GEN2 

2677 

GEN3 

2601 

GEN5 

2698 

CLR1 

2729 

CLR2 

2731 

CLR3 

2737 

CLR4 

2753 

GENT 

2765 

GENS 

2783 

GAM1 

2799 

MOV W 

2858 

REPT 

2889 

GAM3 

2808 

GAM4 

2833 

GAMS 

2838 

SHOT 

3160 

GAM6 

2841 

MOVE 

3569 

GAMS 

2847 

HAPS 

3674 

MOV 1 

2888 

RPTO 

2904 

RPT 1 

2920 

BATS 

3066 

RPT2 

2933 

BUMW 

3102 

RPT3 

2941 

PITS 

3092 

RPTM 

3021 

RPT4 

2985 

RRM9 

3062 

RRM1 

3042 

RRM2 

3052 

BMP5 

3147 

SIO 

3169 

THRW 

3375 

Sll 

3207 

S13 

3245 

S12 

3233 

S20 

3271 

S21 

3277 

S22 

3314 

S25 

3320 

S31 

3339 

S32 

3352 

STBT 

3484 

S33 

3365 

STPT 

3503 

STSF 

3522 

THR1 

3387 

THRO 

3390 

THR2 

3429 

THH5 

3452 

THR3 

3445 

MIGN 

3723 

THR6 

3477 

STB9 

3502 

STP9 

3521 

STS7 

3559 

STS3 

3551 

STS5 

3555 

DSP 1 

3615 

DSP2 

3641 

HAP1 

3666 

HAP3 

3695 

ROCX 

3778 

HAP5 

3704 

RATS 

3806 

HAP7 

3713 

SLIE 

3825 

HAP9 

3722 

EXTA 

3066 

MIG1 

3741 

MIG2 

3753 

ROK1 

3784 

SLD1 

3828 

SL05 

3854 






END OF NORMAL EXECUTION 





BASIC Source Listing 


10 REM 

20 REM SUPERWUMPUS 
30 REM 
40 REM 

50 PRINT \ PRINT \ PRINT \ PRINT \ PRINT 

60 INPUT "TO START THINGS OFF, ENTER A RANDOM NLMBER: ", X 
70 IF X>0 AND X<!0000 THEN 90 

80 PRINT"FORGOT TO TELL YOU, IT MUST BE BETWEEN 1 AND 9999"\GOTO 60 
90 X=RND(X/ 10000) 

100 PRINT \ PRINT \ PRINT \ PRINT 

110 DIM Ai(5), R(20,3), C$(20), T(20,2), A$(72) 

120 T=1 

130 DATA 2,5,6,1,3,7,2,4,8,3,5,9,1,4,10,1,11,12,2,12,13,3,13,14 
140 DATA 4,14,15,5,11,15,6,10,17,6,7,18,7,8,19,8,9,20,9,10,16 
150 DATA 15,17,20,11,16,18,12,17,19,13,18,20,14,16,19 
160 REM 

170 REM MAINLINE MODULE 
180 REM 

190 PRINT \ PRINT \ PRINT 

200 PRINT "WELCOME TO THE WUMPUS CAVES." 

210 PRINT"DO YOU WANT PLAYING INSTRUCTIONS?", 

220 GOSUB 3680 

230 IF XI THEN 210 

240 IF A$( 1 , 1 ) = "N" THEN 410 

250 PRINT \ PRINT \ PRINT 

260 PRINT"THIS CAVE HAS 20 INTERCONNECTED ROOMS." 

270 PR1NT"THE \MJMPUS IS ASLEEP IN ONE AND MUST BE TAGGED FOR" 

280 PRINT" YOU TO SUCCEED. ONLY WHEN HE IS AWAKE AND TAGGED" 

290 PRINT" WILL HE LEAD YOU TO THE EXIT." 

300 PRINT" IF HE FINDS YOU BEFORE HE IS TAGGED, HE WILL EAT YOU." 

310 PRINT" IF YOU WAKE HIM UP HE MAY MOVE." 

320 PRINT"LOOK OUT FOR BATS AND BOTTOMLESS PITS. WARNINGS FOR THEM" 
330 PRINT" ARE FOR LOCATIONS ONE ROOM AWAY." 

340 PRINT"YOU HAVE 5 IMMOBILIZING DARTS AVAILABLE." 

350 PRINT"EACH SHOT MAY GO THROUGH 1 TO 5 CONNECTED ROOV6." 

360 PR I NT "YOU MAY MAKE ONE MOVE OR SHOT EACH HOUR. " 

370 PRINT "WHEN YOU ARE OUT OF DARTS, LOOK FOR ROCKS TO BONK HIM WITH. 
380 PRINT" ROCKS CAN BE THROWN (SHOT) INTO ONE ROCM AND MAY" 

390 PRINT" KNOCK HIM OUT. " 

400 PRINT\INPUT "HIT RETURN TO BEGIN", A$ 

410 GOSUB 580 
420 GOSUB 1060 

430 PR I NT "WOULD YOU LIKE TO SEE A M\P OF THE CAVES?", 

440 GOSUB 3680 

450 IF XI THEN 430 

460 IF A$( 1 , 1 )*"Y" THEN GOSUB 3280 

470 PR I NT "WOULD YOU LIKE TO PLAY ANOTHER GAME?", 

480 GOSUB 3680 

490 IF XI THEN 470 

500 IF A$(1,1)*"Y" THEN 410 

510 PRINT \ PRINT \ PRINT \ PRINT 

520 PRINT"THANK YOU FOR PLAYING, CCME AGAIN SOMETIME." 

530 PRINT \ PRINT \ PRINT \ PRINT 
540 END 
550 REM 

560 REM INITIALIZE CAVES (GENCAVES) 

570 REM 
580 RESTORE 



590 PRINT \ PR I NT "HANG ON A BIT ", 

600 FOR 1 = 1 TO 20 
610 FOR J = 1 TO 3 
620 READ R(I,J) 

630 NEXT J 

640 C$(I,I) = " " \ T(I,I) = I 

650 IF T THEN T(I,2)=0 ELSE T(I,2)=I 

660 NEXT I 

670 REM SETUP WIMPUS, PITS, BATS, & CURRENT ROCM 
680 0 = 1 \ X$="W" 

690 GOSUB 970 
700 W=R2 

710 C1= FNA(2) \ X$="P" 

720 GOSUB 970 

730 C1 =FNA( 4 ) \ X$="B" 

740 GOSUB 970 
750 C=FNA(20) 

760 IF C$(C,C)<>" " THEN 750 
770 IF NOT T THE 900 
7 80 REM LOAD TRANSLATION TABLE 
790 PRINT"WHILE I SET THIS UP" 

800 FOR 1=1 TO 20 
810 C1=FNA(20) 

820 IF T(C1,2)=0 THEN 830 ELSE 850 
830 T(C1,2)=I 
840 GOTO 880 
850 C1=0 + 7 

860 IF C1>20 THEN 0=0-20 
870 GOTO 820 
880 NEXT I 

890 REM PUT WIMPUS TO SLEEP, GEN DAYS, SHOTS, ROCKS 
900 A=0 

910 D=I 0+INT(RND(0)* 1 1 ) 

920 S=5 \ R=0 \ E=0 
930 RETURN 
940 REM 

950 REM GEN ITEM IN ROOM (GENITEM) 

960 REM 

970 FOR 1=1 TO Cl 
980 R2=FNA(20) 

990 IF C$(R2,R2)<>" " THEN 980 
1000 C$(R2,R2)=X$ 

1010 NEXT I 
1020 RETURN 
1030 REM 

1040 REM MAINLINE FOR A GAME (PLAY) 

1050 REM 
1060 D=D-1 

1070 IF A THEN GOSUB 1230 

1080 GOSUB 1330 

1090 IF E THEN RETURN 

1100 PRINT\ INPUT "SHOOT OR MOVE?", A$ 

1110 IF LEN(A$)=0 THEN 1140 
1120 IF A$(1,1) = "S" THEN 1150 
1130 IF A$(1,1) = "M" THEN 1160 

1140 PR I NT" PLEASE ANSWER SHOOT OR MOVE" \ GOTO 1100 
1150 PRiNTXGOSUB 1990 \ GOTO 1170 
1160 PRINTXGOSUB 2720 
1 170 IF E THEN RETURN 
1 180 PRINTXGOSUB 2800 
1 190 GOTO 1060 


52 



1200 REM 

1210 REM MOVE WIMP US 
1220 REM 

1230 IF RND( 0 )< . 2 THEN RETURN 
1240 R0=W \ W2= 1 
1250 GOSUB 3480 
1260 C$(W,W) = " " 

1270 W=R0 

1280 C$(W,W) = "W" 

1290 RETURN 
1300 RBM 

1310 REM REPORT STATUS 
1320 REM 

1330 IF D>0 THEN 1360 

1340 PRINT"YOU HAVE RUN OUT OF SUPPLIES AND WILL STARVE. " 

1350 GOSUB 36 30 \ RETURN 

1360 IF C$ (C ,C )<>" B" THEN 1420 

1370 PR I NT "WHOOPS , BATS RELOCATE YOU. * 

1380 PRINT" YOU LOSE SOME SUPPLIES." 

1390 C=FNA( 20) 

1400 D=D- INT(D/4 ) 

1410 GOTO 13 30 

1420 IF C$(C,C)<>"W" THEN 1450 

1430 GOSUB 1700 

1440 IF E THEN RETURN 

1450 IF C$(C,C)<>"P" THEN 1480 

1460 PRINT"YYYI I I I IEEEEEE. . . YOU FELL INTO A PIT!!" 

1470 GOSUB 3 6 30 \ RETURN 

1480 PRINT \ PRINT"---START OF NEXT HOUR-- - "\PRINT 
1490 FOR 1 = 1 TO 3 
1500 C1 =R(C , I ) 

1510 IF Cl =0 THEN 1550 

1520 IF C$(C1 ,C1 )*'P" THEN PR1NT"«< I FEEL A DRAFT »>" 

1530 IF C$(C1,C1)="B" THEN PRINT"«< I HEAR WINGS »>" 

1540 IF C$(C1 ,C1 ) = "W" THEN PRINT"«< I SMELL A WUMPUS! ! ! »>" 

1550 NEXT I 
1560 PRINT 

1570 FOR 1 = 1 TO FNA( 6) 

1580 R0=R(C, 1 ) 

1590 R(C, l )=R(C, 2 ) 

1600 R(C, 2 )=R(C, 3 ) 

1610 R(C, 3 )=R0 
1620 NEXT I 

1630 PR I NT "CURRENT ROOM IS", T(C,2) 

1640 PR I NT "TUNNELS LEAD TO" , T(R(C,1),2), T(R(C,2),2), T(R(C,3),2) 
1650 PR I NT "YOU HAVE ENOUGH SUPPLIES FOR", D, " MDRE HOURS" 

1660 RETURN 
1670 REM 

1680 REM BUMP INTO WIMPUS 
1690 REM 

1700 IF A THEN 1790 

1710 PRINT"LOOK OUT, YOU STEPPED ON HIS ", 

1720 ON FNA(4) GOTO 1730,1740,1750,1760 
1730 PRINT"FLI PPER" , \ GOTO 1770 
1740 PRINT"TRUNK", \ GOTO 17 70 
1750 PR I NT "WING", \ GOTO 17 70 
1760 PR I NT "CLAW" , 

1770 PRINT"!! NOV HE IS AWAKE." 

1780 A=1 \ RETURN 

1790 DATA "C" , "H" , "O" , "M" , " P" 

1800 RESTORE 1790 
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1810 FOR 1=1 TO 5 
1820 FOR J=1 TO 400 
1830 NEXT J 
1840 READ A$ 

1850 PRINT" '.AS, 

1860 NEXT I 

1870 FOR 1 = 1 TO 500 \ NEXT I 
1880 PRINT" MUNCH", 

1890 FOR 1 = 1 TO 300 \ NEXT I 
1900 PRINT" MUNCH MUNCH ", 

19 10 FOR 1 = 1 TO 450 \ NEXT I 
1920 PRINT"G U L P" 

1930 FOR 1=1 TO 500 \ NEXT I 
1940 PRINT" THE WUMPUS GOTCHA" 

1950 GOSUB 3630 \ RETURN 
1960 REM 

1970 REM SHOOT 
1980 REM 

1990 IF S>0 THEN 2010 
2000 GOSUB 2520 \ RETURN 
2010 W1=0 \ S0=0 \ S=S- 1 

2020 INPUT "HOW MANY ROOMS DO YOU WISH TO SHOOT THRU? " ,R2 
2030 IF R2>0 AND R2<6 THEN 2050 

2040 PRINT "NUMBER MUST BE FROM 1 TO 5" \GOTO 2020 
2050 FOR 1=1 TO R2 

2060 IF 1 = 1 THEN INPUT "ENTER THE FIRST ROOM NUMBER: ",A1(I) 

2070 IF I>1 THEN INPUT "ENTER THE NEXT ROOM NUMBER: ",A1(I) 

2080 A1( I) = FNB(A1(I)) 

2090 FOR J = 1 TO I - 1 

2100 IF Al(I)<>A1(J) THEN 2120 

2110 PRINT "SORRY, CAN'T SHOOT INTO SAME ROOM TWICE. "\EXIT 2060 
2120 NEXT J 
2130 NEXT I 

2140 PRINTMF A THEN 2170 

2150 PR I NT "WATCH IT, THE WUMPUS IS AWAKE!" 

2160 A=1 

2170 R3=C 

2180 FOR 1=1 TO R2 

2190 IF W1 THEN 2230 

2200 IF FNC(R3,A1(I)) THEN 2280 

2210 PR I NT "WATCH IT, WILD SHOT!" 

2220 W1=1 
2230 R0=R3 

2240 W2=0 

2250 11=1 

2260 GOSUB 3480 
2270 1=11 

2280 IF W1 THEN R3=R0 ELSE R3=AI(I) 

2290 IF C$(R3,R3)<>"W" THEN 2320 

2300 GOSUB 3600 

2310 E=1 \ RETURN 

2320 IF C$(R3,R3)<>"B" THEN 2350 

2330 IF RND(0)>.33 THEN 2350 

2340 PRINT"BIG DEAL, YOU SHOT A BAT" \ RETURN 
2350 IF C$(R3,R3)<>"P" THEN 2380 
2360 IF RND(0)>.33 THEN 2380 

2370 PR I NT "DART WAS SUCKED INTO A PIT" \ RETURN 

23 8.0 IF R3<>C THEN 2470 

2390 PRINT"NICE GOING,TURKEY, YOU SHOT YOURSELF ", 

2400 IF RND(0)>.5 THEN 2450 

24 10 PRINT" IN THE LEG" 
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2420 PRINT* AND HAVE USED MEDICAL SUPPLIES. * 

2430 IF D>5 THEN D=5 ELSE D=INT(D/2) 

2440 RETURN 

2450 PRINT*AND WILL NEVER MAKE IT* 

2460 GOSUB 3 630 \ RETURN 
2470 NEXT I 
2480 RETURN 
2490 REM 

2500 REM THREW A ROCK 
2510 REM 

2520 IF R>0 THEN 2550 

2530 PRINT*SHOOT WHAT? YOU HAVE NO ARROWS OR ROCKS.* 

2540 RETURN 

2550 INPUT * WHERE DO YOU WISH TO THROW IT? *,R0 
2560 R0=FNB(R0) 

2570 IF FNC(C,R0) THEN 2590 

2580 PRINT*YOU CAN'T GET THERE FROM HERE* \ RETURN 
2590 IF C$ (R0 ,R0)<>*W* THUS 2650 
2600 IF RND( 0 )>. 5 THEN 2630 

2610 PRINT*B O N K !! , YOU DAZZED HIM WITH A ROCK* 

2620 GOSUB 3600 \ RETURN 

2630 PRINT*T HUD. THAT JUST MAKE HIM MAD, LOOK OUT* 

2640 RETURN 
2650 PRINT*MISSED* 

2660 IF C$(R0,R0)<>*B* THEN RETURN 
2670 PRINT*YOU HIT A BAT CAVE, HOWEVER* 

2680 GOSUB 2870 \ RETURN 
2690 REM 
2700 REM MOVE 
2710 REM 

2720 INPUT * WHERE TO? *, R0 
2730 R0*FNB(R0) 

2740 IF FNC(C,R0) THEN 2760 

2750 PRINT*CAN'T GET THERE FROM HERE* \ GOTO 27 20 
2760 C=R0 \ RETURN 
2770 REM 

2780 REM RANDOM HAPPENINGS 
2790 REM 

2800 IF RND(0)>. 9 THEN GOSUB 2870 
2810 IF RND(0 )>. 75 THEN GOSUB 2990 
2820 IF RND(0)>. 95 THEN GOSUB 3040 
2830 IF RND(0 )>. 9 THEN GOSUB 3080 
2840 IF RND(0)>. 8 THEN GOSUB 3210 
2850 RETURN 
2860 REM MIGRATION 

2870 D=D- FNA( 3 ) 

2880 IF D<2 THEN D*2 

2890 FOR 1*1 TO 20 

2900 IF C$(I,I)**B* THEN EXIT 2920 

2910 NEXT I 

2920 R0*I \ Cl*1 \ X$**B* 

2930 GOSUB 970 
2940 C$(R0 , R0 )** * 

29 50 PRINT*DUCK! ! BAT MIGRATION, ONE COLONY OF BATS HAS MOVED* 
2960 PRINT* YOU LOSE SCME SUPPLIES WHILE HIDING* 

2970 RETURN 

2980 REM ROCKS 

2990 IF S>0 THEN RETURN 

3000 PRINT*LOOK, YOU FOUND A THROWING ROCK!!* 

3010 R*R+1 
3020 RETURN 



30 30 REM RATS 
3040 D=INT(D/2) 

3050 PR I NT "RATS FRCM THE PITS EAT HALF YOUR SUPPLIES! !" 

3060 RETURN 

3070 REM ROCKSLIDE 

3080 R0=FNA(20) 

3090 FOR 1 = 1 TO 3 

3100 IF R(R0,I)>0 THEN EXIT 3130 

3110 NEXT I 

3120 GOTO 3080 

3130 R1=R(R0,I) 

3140 R(R0,I)=0 
3150 FOR 1 = 1 TO 3 

3160 IF R(R1,I)=R0 THEN R(R1,I)=0 
3170 NEXT I 

3180 PRINT"L ISTEN! ! A ROCK SLIDE HAS CLOSED A TUNNEL" 

3190 RETURN 

3200 REM EXTRA SUPPLIDES 
3210 D=D+FNA(5) 

3220 PRINT"LOOK,YOU FOUND SUPPLIES LEFT BY A" 

3230 PRINT" PREVIOUSLY (EATEN) EXPLORER" 

3240 RETURN 
3250 REM 
3260 REM MAP 
3270 REM 
3280 PRINT 

3290 PRINT" ROOM TUNNELS ITEM ROOM TUNNELS ITEM" 

3300 PRINT 

33 10 FOR 1 = 1 TO 10 

3320 FOR J = 1 TO 20 

3330 IF T(J,2)=I THEN EXIT 3350 

3340 NEXT J 

3350 PRINT%4I, T(J,2), " ", T(R(J,1),2), T(R(J,2),2), T(R(J,3),2), 

3360 PRINT" ", CS(J,J), 

3370 PRINT" 

3380 FOR J=1 TO 20 

3390 IF T(J,2)=I+10 THEN EXIT 3410 
3400 NEXT J 

3410 PRINT%4I, T(J,2), " ", T(R(J,1),2), T(R(J,2),2), T(R(J,3),2), 

3420 PRINT" ", C$(J,J) 

3430 NEXT I 
3440 RETURN 
3450 REM 

3460 REM RANOVOVE 
3470 REM 

3480 FOR 1=1 TO 50 

3490 IF 1=49 THEN EXIT 3560 

3500 J=FNA(3) 

3510 IF R(R0,J)<1 THEN 3540 

3520 IF C$(R(R0,J),R(R0,J))=" " THEN EXIT 3550 
3530 IF NOT W2 THEN EXIT 3550 
3540 NEXT I 
3550 R0=R(R0,J) 

3560 RETURN 
3570 REM 

3580 REM WON & LOST 
3590 REM 

3600 PR I NT "GOOD FOR YOU, YOU GOT HIM AND HE" 

3610 PRINT" WILL LEAD YOU OUT OF THE CAVE" 

3620 E=1 \ RETURN 

3630 PRINT"YOU LOSE (HEE HEE)" 
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3640 E=1 \ RETURN 
3650 REM 

3660 REM CHECK INPUT (YES OR NO) 

3670 REM 

3680 INPUT " * ,A$ 

3690 X1=0 

3700 IF LEN(A$)=0 THEN 3730 

3710 IF A$(1,1) = W Y W THEN RETURN 

3720 IF AS(1,1)="N" THEN RETURN 

3730 Xl = 1 \ ! " PLEASE ANSWER YES OR NO" \ RETURN 

3740 REM 

3750 REM FUNCTIONS 
3760 REM 

3770 REM RETURN A RANDOM #, 1 THROUGH X 
3780 DEF FNA(B) = INT(RND(0)* B) + l 
3790 REM INPUT A VALID ROOM # 

3800 DEF FNB(X) 

3810 FOR I 1 = 1 TO 20 

3820 IF T( 11,2) =X THEN RETURN T( 11 , 1) 

3830 NEXT II 

3840 INPUT "MUST BE A ROOM NUMBER FROM 1 TO 20, TRY AGAIN 
3850 GOTO 3810 
3860 FNEND 

3870 REM CHECK CONNECTION OF X AND Y 
3880 DEF FNC(X,Y) 

3890 IF R(X, 1 )=Y OR R(X,2)=Y OR R(X,3)=Y THEN RETURN I 
3900 RETURN 0 
3910 FNEND 




Appendix C: 


PAPERBYTE ™ Bar Code Representation of 

Executable Code 

6800 Assembler Bar Codes 

BASIC Bar Codes 
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Beginning on page 65 is a complete machine readable representation (PAPERBYTE™ bar 
codes) of the object code for Jack Emmerichs* SUPER WUMPUS 6800 assembly language 
program, as assembled in the listing found on pages 25 to 48 of this book. 

This representation uses the absolute loader format, in which each bar code frame (one line 
of bars running from top to bottom of the page) contains a two byte address followed by data 
which is loaded in ascending order starting at that address. 

The object code listing shown below gives the information in hexadecimal form. 

For details on the frame format and absolute loader format used in this and all 
PAPERBYTE™ books, see the PAPERBYTE publication Bar Code Loader by Ken Budnick. 
This book contains a brief history on bar codes, a general bar code loader algorithm with flow 
charts and complete program listings for 6800, 6502, and 8080 or Z-80 based systems. 
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A Note About Bar Codes 


• • • 


Bar codes are the newest form of machine readable data repre¬ 
sentation. They are used in all PAPERBYTE™ software pro¬ 
ducts in BYTE magazine articles and self contained book publi¬ 
cations and combine efficiency of space, low cost, and ease of 
data entry with the need for mass produced machine readable 
representations of software. Bar codes were originally used for 
product identification in inventory control and supermarket 
checkout applications. Today, because of their direct binary 
representation of data, they are an ideal computer compatible 
communications medium. In the application of bar codes to soft¬ 
ware distribution (such as PAPERBYTE books and articles), 
the use of a simple but reliable optical scanning wand and an 
appropriate program provides a convenient means for the user 
to acquire software. 

Our intent in making PAPERBYTE software available in 
bar code form is to provide a method of conveying machine read¬ 
able information from documentation to the memories and mass 
storage of a user's system on a one time basis. We suggest that 
the user of software obtained in this manner should locally record 
the data on the mass storage devices of his system after the data 
has been scanned from the printed page. The PAPERBYTE bar 
code representations provide a standardized means of obtaining 
the data, but they cannot be compared to the convenience 
of local mass storage devices such as floppy disks, digital cassettes 
or audio cassettes. Thus if repeated use of the software obtained 
from bar code is anticipated, we recommend that the user make a 
copy on some form of magnetic medium. 

Bar Code Loader by Ken Budnik, the first in the PAPERBYTE 
series of software books, provides a brief history of bar codes, a 
look at the PAPERBYTE bar code format including flowcharts, a 
general bar code loader algorithm and well documented programs 
with complete implementation and checkout procedures for 
6800, 6502 and 8080/Z-80 based systems. 


Bar Codes Provided by: 

Walter Banks 

Computer Communications Network Group 
University of Waterloo 
Waterloo, Ontario , Canada 



SUPER- 

WUMPUS, 

by Jack Emmerichs, is an 
exciting computer game 
incorporating the original 
structure of the WUMPUS 
game described in the book 
What To Do After You Hit 
Return, published by the 
People’sComputerCompany, 
along with added features 
which make the game even 
more fascinating. Pro¬ 
grammed in both 6800 
assembly language and 
BASIC, the game is not only 
addictively fun, but also 
provides a splendid tutorial 
on setting up unusual data 
structures (the tunnel and 
cave system of SUPER- 
WUMPUS forms a dodecahe¬ 
dron). 
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